Automatically adding a timestamp after a pulldown is selected

Jon_Big

The code should be in the worksheet module. You can open this module from Excel by right-clicking the sheet tab, then selecting 'View Code' from the context menu, or by double-clicking the sheet in the Project Explorer pane of the Visual Basic Editor.

I'd change the code to look like this:

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("P2:P670")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Intersect(Target, Range("P2:P670")).Offset(1, 0).Value = Now
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub