Private Sub Worksheet_ChangeTimestamp(ByVal Target As Range) 'These need to be added into the worksheet VBA section itself 'Enter a name in column A and current date and time is entered automatically in column B. You can also copy a cell range and paste in column A. Empty cells are not processed. Dim Value As Variant If Not Intersect(Target, Range("A:A")) Is Nothing Then For Each Value In Target If Value <> "" Then Range("B" & Value.Row).Value = Now End If Next Value End If End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter