Multiple iteration of a date stamp

Hi

Can comeone please help? I have the below code to date stamp a cell in column AN only when a cell in column AB equals 0...the trouble is I would like this to work for the entire column without having to keep copy and pasting the code like I have below.

Also if there is any other number in column AB i want it to skip that row, not date stamp in column AB but move to the next row down?? Lastly, once the date stamp is in the relevant cell in column AN I never want it to overtype,

Any help would be greatly appreciated


I am currently using:

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Performance Board").Unprotect "password"

If Intersect(Target, Range("AB8")) = 0 Then
If Range("AN8").Value <> "" Then Exit Sub
Application.EnableEvents = False
    Range("AN8").Value = Now
    Range("AN8").NumberFormat = "d dddd yyyy  hh:mm:ss"
Application.EnableEvents = True
End If

If Intersect(Target, Range("AB9")) = 0 Then
If Range("AN9").Value <> "" Then Exit Sub
Application.EnableEvents = False
    Range("AN9").Value = Now
    Range("AN9").NumberFormat = "d dddd yyyy  hh:mm:ss"
Application.EnableEvents = True
End If

If Intersect(Target, Range("AB10")) = 0 Then
If Range("AN10").Value <> "" Then Exit Sub
Application.EnableEvents = False
    Range("AN10").Value = Now
    Range("AN10").NumberFormat = "d dddd yyyy  hh:mm:ss"
Application.EnableEvents = True
End If

Sheets("Performance Board").Protect "password"

End Sub

if target.column = target.worksheet.range("AN1").column then

end if

Private Sub Worksheet_Change(ByVal Target As Range)

Const cstColumnsApart = 12
Const cstANColumn = 40

If Target.Offset(0, (0 - cstColumnsApart)).Value = 0 Then
    Cells(Target.Row, cstANColumn).Value = Format(Now, "d dddd yyyy hh:mm:ss")
End If

End Sub

Thanks for your help but this doesn't work, the code we have works but we need it to just continue down the entire row of cells. We think this is 'Do Unitl' but are fairly new at VBA...the code is:

If Intersect(Target, Range("AB8")) = 0 Then
If Range("AN8").Value <> "" Then Exit Sub
Application.EnableEvents = False
    Range("AN8").Value = Now
    Range("AN8").NumberFormat = "d dddd yyyy  hh:mm:ss"
Application.EnableEvents = True
End If

We essentially want this to repeat in row AB until it reaches the last row??

Many thanks again

it would be something like

for I = 1 to activesheet.usedrange.rows.count

Range("AN" & I).Value = Now

SORRRRRRY