Menüleiste

Set oBar = NeueLeiste.Controls.Add(msoControlPopup)
With oBar
.Caption = "Zettel"
End With

For Each wks In ThisWorkbook.Worksheets
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.name
.Style = msoButtonCaption
.OnAction = "mnuAuswahl"
End With
Next wks

Kann mir jemand einen Tip geben wie ich nur die aktiven Blätter einlese. Ich hab schon alles probiert. Mir fällt nichts mehr ein.

Für Lösungen oder Ansätze "Besten Dank"