Klick-Ereignis während anderer Prozedur | Herbers Excel-Forum

Hallo,
ich wünsche Euch einen schönen, verschneiten Sonntag.
Weiß jemand, wie ich vorgehen muß, wenn ich während einer Prozedur ein
Klickereignis starten möchte?
Folgende Aufgabe:
Sub Uebertragen
Set Blatt1 = Sheets("Blatt1")
Set Blatt2 = Sheets("Blatt2")
...
Blatt2.activate
wenn ich auf eine Zelle klicke, soll in Blatt1 was eingetragen werden.
Wenn ich auf eine Schaltfläche klicke soll das Blatt wechseln:
Blatt1.activate
End Sub
Leider funktioniert das Ereignis

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Blatt1 = Sheets("Blatt1")
Set Blatt2 = Sheets("Blatt2")
If Target.Count = 1 Then
lrow = Blatt1.Range("B1000").End(xlUp).Row
If Not Intersect(Target, Blatt2.Range("D4:P6")) Is Nothing Then
If Blatt1.Cells(lrow + 1, 3) = "" Then
Blatt1.Cells(lrow + 1, 3) = Target.Value
Else
Blatt1.Cells(lrow + 1, Blatt1.Cells(lrow + 1, 7).End(xlToLeft).Column + 1) =  _
Target.Value
End If
End If
End If
End Sub