Moin! ALso auf die Tabellen musst du mit ListObjetcs zugreifen. DAbei kannst du dir die Anzahl und wenn vorhanden NAmen auslesen. In deinem Beispiel könnte es so gehen. VG

Dim tabtab As Long
Dim BLATBLAT As Long
For BLATBLAT = 2 To Worksheets.Count
    For tabtab = Worksheets(BLATBLAT).ListObjects.Count To 1 Step -1
        With ComboBox1
        .AddItem Worksheets(BLATBLAT).ListObjects(tabtab).Name
        End With
    Next tabtab
Next BLATBLAT