Ich möchte auf mehrere Zellen (7) die Targetanweisung anwenden.
Wie mache ich das?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1,A5,B7,B10,B20,B30,C8"), Target) Is Nothing Then
MsgBox "Zielzelle"
End If
End Sub