folgendes Problem:

ich möchte gerne eine Arbeitsmappe erstellen wo man über einen eigenen Menübarbutton die sichtbaren und Ausgeblendeten Sheets auflisten und im Status ändern kann.

Bis jetzt schaffe ich es nur alle Sheets aufzulisten. Ich sollte noch erwähnen das ich seit über 10 Jahren nichts mehr mit VBA gemacht habe.

Hier bin ich hängen geblieben:

Sub NeuerEintrag()
Dim i As Integer
Dim i_Hilfe As Integer
Dim e As Integer
Dim MenüNeu As CommandBarControl
Dim Mb As CommandBarControl
Dim unterm As CommandBarPopup

For e = 1 To Application.CommandBars(1).Controls.Count
'If Application.CommandBars(1).Controls(e).Caption = "BlattMakros" Then Exit Sub
Next e

 i = Application.CommandBars(1).Controls.Count
 i_Hilfe = Application.CommandBars(1).Controls(i).Index
 Set MenüNeu = Application.CommandBars(1). _
  Controls.Add(Type:=msoControlPopup, _
  Before:=i_Hilfe, temporary:=True)
 MenüNeu.Caption = "2-stündl. Überprüfung aktuell"
 
 
 'Untermenuepunkt1
    Set Mb = MenüNeu.Controls.Add _
        (Type:=msoControlPopup)
    With Mb
        .Caption = "Überprüfungen aktivieren"
        .BeginGroup = True
    End With
    
    
    Dim x As Long
    For x = 1 To ThisWorkbook.Sheets.Count

    With Mb.Controls.Add(Type:=msoControlButton)
     .Caption = ThisWorkbook.Sheets(x).Name
     .FaceId = 59
     .OnAction = "aktivieren"
    End With
    End If  
    Next x
    
    'Untermenuepunkt2
    Set Mb = MenüNeu.Controls.Add _
        (Type:=msoControlPopup)
    With Mb
        .Caption = "Überprüfungen ausblenden"
        .BeginGroup = True
    End With
    
    With Mb.Controls.Add(Type:=msoControlButton)
     .Caption = "Alle Tabellen schützen"
     .FaceId = 1019
     .OnAction = "ausblenden"
    End With
End Sub

Ich Danke schon mal im vorraus