Problemer med VBA

Jeg er ved at lave et skema, hvor den i celle A5 skal returnere dags dato, såfremt der sker ændringer i et af felterne fra D4 til D30.

Jeg er absolut ny i VBA og har dog alligevel prøvet udfra følgende, dog uden positivt resultat:

Private Sub worksheet_change(ByVal Target As Range)
Rem Skrive dato i A5 når værdier i kolonne D ændres

    If Intersect(Target, Range("D4:D30")) Is Changed Then Exit Sub
    If IsNumeric(Target) Then
        Cells(Target.Row, "A5") = Now
    End If
End Sub

Alle gode bud er velkomne!