Hallo

eine andere Variante, ohne Funktion, ist dieses kurze Makro.  Bitte mal testen.

Sub Blatt_vorhanden_Test()
Dim Sht As Worksheet
On Error Resume Next
Set Sht = Worksheets(ActiveCell.Value)
If Err = 0 Then Sht.Activate: Exit Sub
MsgBox "Dieses Sheet existiert nicht", vbInformation
End Sub

mfg Nobody