Hallo Danke schon mal für den Ansatz :-)

wenn ich das in das Makro einfüge anstelle des alten kommt folgende Fehlermeldung

Fehler beim Kompalieren
Sub oder Funktion nicht definiert

Sub GeheZu_2()

 If WorksheetExists(ActiveCell.Value) Then
        Call ThisWorkbook.Worksheets(ActiveCell.Value).Activate
    Else
        Call MsgBox("Tabellenblatt '" & ActiveCell.Value & "' muss erstellt werden.")
    End If