Strange Sheet and Workbook names on my VBE

[Akbarov]

Hello Dear community,

Can anyone explain me why do I have so many sheet names on my VBE? I don't have those sheets on my workbook. I also have extra Workbook named "ThisWorkbook1"

Thanks in advance.

 

[rlv01]

That's odd. Are they all hidden? The 2nd workbook would be a red flag to me and I'd be worried about workbook corruption and make some backups before poking at it further. I'd probably create a new workbooks using 'Save-As' and then see if it was the same in the new workbook. I have a macro that I run when I want to get a quick read on how many hidden/visible sheets in a workbook there are. Here it is, if it is of any use to you.

Sub SheetInfo()
    Dim Sh As Object
    Dim WS As Worksheet
    Dim S As String, V As String, MyTabs As String
    
    MsgBox "This macro displays sheet information in the VBE 'Immediate' window.", vbOKOnly Or vbInformation, "Workbook '" & ActiveWorkbook.Name & "'"


    S = S & "Sheet Information (Workbook '" & ActiveWorkbook.Name & "')" & vbNewLine
    S = S & ActiveWorkbook.Sheets.Count & " sheets found." & vbNewLine
    S = S & "---------------------------------------" & vbNewLine
    For Each Sh In ActiveWorkbook.Sheets
        S = S & Sh.CodeName & " (" & Sh.Name & ")"
        If Len(Sh.CodeName & " (" & Sh.Name & ")") > 16 Then
            MyTabs = VBA.String(1, vbTab)
        Else
            MyTabs = VBA.String(2, vbTab)
        End If
        S = S & MyTabs & "Type: " & TypeName(Sh)
        S = S & ", Protected: " & CStr(Sh.ProtectContents = True)
        Select Case Sh.Visible
        Case -1
            V = "xlSheetVisible"
        Case 0
            V = "xlSheetHidden"
        Case 2
            V = "xlSheetVeryHidden"
        Case Else
            V = "?"
        End Select
        S = S & ", Visbility: " & V & vbNewLine
    Next Sh
    Debug.Print S
End Sub

 

[Akbarov]

Thanks for the reply, yes, I did the same. Copied all modules, saved as xlsx, then inserted modules again.