Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, 4).Value = Month(Target.Value)
End If
End Sub

Das heißt, ich möchte nicht jede Zelle einer Zeile ändern, sondern der Code soll ablaufen, wenn ich A1 ändere.
( dann soll jede Zelle in Spalte B mit o.g. Bedingung gefüllt werden, dessen Zelle A in derselben Zeile nicht leer ist.

Ist das möglich?

Gruß Andre