Namen des letzten Tabellenblattes auslesen

ich hatte einem Frager letzhin geantwortet, der wissen wollte, wie man Tabellenblätter dynamisch erzeugt.
Das funktioniert mit folgendem Code auch sehr gut (Die Tabellenblätter bekommen Nummern als Namen).
Nun zu meiner Frage:

wie kann ich z.B. an den Text Inputbox übergeben lassen, wie die Nummer (also der Name) des zuletzt erzeugten Tabellenblattes ist, um zu verhindern, das ein Name doppelt vergeben wird (bzw. entsprechende Fehlermeldung erscheint)

Hier der Code:

Vielen dank
Mike E.