Tabellenblattnamen in Tabellenblatt eintragen

ich suche einen Makro, mit dem ich die Namen aller Tabellenblätter in meiner Arbeitsmappe in ein Tabelle untereinander eintragen kann.

Ich möchte so eine Liste über alle vorhandenen Tabellenblätter bekommen.

Ich habe hier bis jetzt nur Makros gefunden, die das Ganze umgekehr machen:
Sub Beispiel()
For i = 1 To 3
If Not IsEmpty(Cells(i, 1)) Then
ActiveWorkbook.Worksheets(i).Name = Cells(i, 1)
End If
Next i
End Sub

Vielen Dank für die Hilfe,

Janine