Dim bln As Boolean
Private Sub Worksheet_Selectionchange _
(ByVal target As Excel.Range)
Dim rng As Range
Set rng = Range("B7")
If target.Address = rng.Address Then bln = True
If bln = True And target.Address <> rng.Address Then
Call Macro1
bln = False
End If
End Sub
Sub Macro1()
MsgBox "Funktioniert"
End Sub
Danke
Ralf
PS: Meine GoalSeek Frage von heute morgen konnte ich lösen.