Wert auslesen über mehrere Tabellenblätter

Hallo,

mein Problem:

Ich habe eine Exceltabelle mit ?? Tabellenblättern (einige)

Auf jedem Tabellenblatt in Spalte D Zeile 9 steht ein Name.

Diesen Namen bräuchte ich in einer extra Tabelle oder Tabellenblatt.
Alle Tabellenblätter haben den gleichen Namen, wie in dieser Spalte / Zeile.

Wie kann ich diese auslesen und eine neue Tabelle schreiben ?
am Besten untereinander.

Vielen Dank

Sub ErstelleListe()
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
    NewSheet.Cells(i, 1).Value = Sheets(i).Cells(9, "D").Value  
Next i
End Sub