Macro hjælp/ VB

Sub Test()
If Range("a1") <> "" Then Range("D1") = Now()
End Sub

sæt denne i arkets modul, så kører den selv

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("a1") <> "" Then Range("D1") = Now()
End If
End Sub

Takker mange gange... det virker som det skal

et svar ;-))

Denne virker sum den skal men hvordan får jeg den til at gøre det på flere rækker!?
------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("a1") <> "" Then Range("D1") = Now()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("a1") <> "" Then Range("D1") = Now()
End If
End Sub
--------------------------------------
Hvis det her bliver sat ind skriver den

Complie error:
Ambiguous Detected: Worksheet_Change

Jeg har 100 celler som der ændre sig og den formel virker men ikke på flere

Så hvis det kan lade sig gøre sådan her

A1  Hvis man skriver her, Skvriver den =nu() i D1
A2  Samme her hvis man skriver i A2    =nu() 1 D2
A3  den skal kun skrive ud fra den celle der bliver skrevet i

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If Target <> "" Then Target.offset(0,3) = Now()
End If
End Sub

nu virker den fra A1 til A100

skulle være et svar

hvad med nogle spring!?
som der er i mit ark...
her er de celler som skal være omfattet den formel
Værdi her I137:I204 =nu() i O137:O204
Værdi her I207:I274 =nu() i O207:O274
Værdi her I277:I343 =nu() i O277:O343
Værdi her I346:I412 =nu() i O346:O412
Værdi her I415:I481 =nu() i O415:O481
Værdi her I484:I481 =nu() i O484:O550
Værdi her I553:I617 =nu() i O553:O617