Bin was am ausprobieren. Der Code macht auch was er soll. AAAAber: Es werden nicht die Namen der Blaetter in cmd.caption uebernommen bzw es wir immer nur der Name vom letzten Blatt fuer alle cmd's genommen. Wo liegt der Fehler? Kontrolle mit F8 zeigt mir wechselnde Namen, hapert halt nur am Eintrag.
Private Sub UserForm_Activate()
Dim NewCommandButton As CommandButton
Dim wks As Worksheet
Dim i As Long
For Each wks In ThisWorkbook.Worksheets
For i = 2 To 30 * Worksheets.Count Step 30
Set NewCommandButton = Me.Controls.Add("Forms.CommandButton.1", "cmdNewControl")
NewCommandButton.Name = wks.Name
NewCommandButton.Caption = wks.Name
NewCommandButton.Top = i
NewCommandButton.Left = 2
NewCommandButton.Width = 50
NewCommandButton.Height = 30
Next
Next
End Sub
Danke im vorraus
Hary