Hallo Zusammen,

ich möchte innerhalb eines Arbeitsblattes auf eine definierte Zelle doppeklicken und automatisch in eine definierte Zelle springen.
Innerhalb des Arbeitsblattes von verschiedenen Zellen in verschieden Zellen.
Beispiel
von B5 nach F5
von B6 nach C3
von B7 nach F 11  usw.

Der Rest des Arbeitsblattes soll unberührt bleiben.

Leider sind alle meine Versuche gescheitert, es im VBA hinzubekommen.
Kann mir jemand sagen wo ich den Fehler habe? Als Fehlermeldung kommt immer Sub oder Function nicht definiert.
Dies ist mein geschriebener Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    Cancel = True

    If Not Intersect(Target, Me.Range("B5")) Is Nothing Then
        Call GoToF5
    ElseIf Not Intersect(Target, Me.Range("B6")) Is Nothing Then
        Call GoToB16
    End If
End Sub

Vielen Dank