Doppelklick führt zur gleichen Zelle auf einem anderen Tabellenblatt

Problem:
In Tabellenblatt 1 (TB 1) möchte ich statistische Daten hinterlegen. Da ich diese Daten aus sehr vielen unterschiedlichen Quellen habe, möchte ich ein zweites Tabellenblatt (TB 2) anlegen indem ich die jeweilige Quellenangabe speichere. Sprich: in TB 2 in Zelle A1 steht die Quellenangabe für den Wert in TB 1 Zelle A1.

Wenn ich nun in TB 1 auf die Zelle A1 doppelklicke, möchte ich, dass der Cursor auf TB 2 in Zelle A1 springt. Doppelklicke ich in TB 1 die Zelle B15 an, soll der Cursor auf TB 2 in Zelle B15 springen.

Lösung:
Hinterlege folgenden Code in beiden Tabellenblättern.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    Cancel = True
    Application.Goto Sheets("Tabelle2").Range(Target.Address)
End Sub