looking to make first column a time stamp of entry in second column

New Contributor

attached the spreadsheet that I am trying to do this with.  would like it to be static so that it does not change when recalculating.


2 Replies


I don't see an attachment, but try the following:

Right-click the sheet tab.

Select View Code from the context menu.

Copy the following code into the worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B2:B" & Rows.Count), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Intersect(Range("B2:B" & Rows.Count), Target).Offset(0, -1).Value = Now
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Switch back to Excel.

Save the workbook as a macro-enabled workbook (*.xlsm).

best response confirmed by rodhorning (New Contributor)

@Hans Vogelaar 


Works just like I wanted,  Never knew about doing it on the sheet tab.  I have a lot to learn.  Thank You.