Umbenennung mit VBS

[rider]

Hi nochmal!

Letzte Frage von mir an euch.
Habs immerhin geschafft mal den Anfang zu machen:

Private Sub CommandButton2_Click()
Dim XYZ As String
Dim objBlatt As Object
Dim strQuellBlatt As String

XYZ = Application.InputBox("Welcher Träger soll umbenannt werden?", "Schreibfehler gemacht?", XYZ)
   If Traegername = "" Then Exit Sub

End Sub

-----------------------------------------------------------
Eigentlich soll nachdem in die InputBox etwas eingegeben wurde, die aktuelle Seite durchsucht werden und alle vorhanden Blätter genauso. Dann soll eine zweite InputBox erscheinen in dem der neue Name eingeben wird und dieser dann überall dort gesetzt wird wo vorher der alte war (also auch in Formel).

Kann man das realisieren?

mfg und danke

[rider]

Kann mir keiner mehr helfen?

mfg