VBA: Mit Makro BlattCode anzeigen lassen

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target Like "Sub*" Then
Var = ActiveCell
Search = "Sub"
result = Right(Var, Len(Var) - InStrRev(Var, Search) - 3)
Application.Goto Reference:=result
MsgBox result & vbLf & vbLf & " ****wird geöffnet****"
Cancel = True
Else
Exit Sub
End If
End Sub