habe in einer UserForm eine ComboBox und dort brauche ich die Namen von den Sheets, außer den Namen von Tabelle1 und Tabelle9.
Mit dem Code werden alle angezeigt.
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub