Kann man diesen Fehler irgendwie abstellen oder klar sagen die Seite ist nicht vorhanden bitte erstelle diese?

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