Date & Time stamping using 'change' event

[Mr. Walnuts]

Im using the 'Change' event to time/date stamp a spreadsheet. However, the sheet is bogging down a bit because I think the second or two after it stamps the NOW() value in the cell once something is changed, the sheet begins "calculating" for about 1 second.

Is this because the NOW() function produces date & time with hours, minutes, and seconds? Is there a way to return NOW() without the seconds?

Here's the Procedure as is..

Private Sub Worksheet_change(ByVal target As Excel.Range)
With Sheets("Status").Range("D3")
.Value = Now()
End With
End Sub

It almost seems like the date/time stamp is actually triggering the 'change' event.

 

[VoG]

It almost seems like the date/time stamp is actually triggering the 'change' event.

It is

Try

Private Sub Worksheet_Change(ByVal target As Excel.Range)
Application.EnableEvents = False
With Sheets("Status").Range("D3")
    .Value = Now()
End With
Application.EnableEvents = True
End Sub

 

[Yard]

It almost seems like the date/time stamp is actually triggering the 'change' event.

It is!

Private Sub Worksheet_change(ByVal target As Excel.Range)
application.enableevents=false
With Sheets("Status").Range("D3")
.Value = Now()
End With
application.enableevents=true
End Sub

 

[Mr. Walnuts]

I figured it was, I just had no idea how to disable it during the procedure.

Thanks