Office: (Office 2016) Bereich erweitern von "$B$7"

Hallo Zusammen,

Bei einem Eintrag in die Zelle B7 wird eine Email versendet. Würde gerne den Bereich auf B7:B500 erweitern. Wenn ich die Werte eintrage passiert leider nicht.
Bin mehr mit dem Makrorecorder vertraut. Daher meine Frage .

Danke und Gruß dragonxxl

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$7" Then
    Call Email_an_PMV
End If
End Sub

 

Hallo.

Habe es selber lösen können.
Gruß dragonxxl

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Intersect(Target, Range("B7:B200")) Is Nothing _
  Then Exit Sub
  Call Email_an_PMV
End Sub