Apr 08 2021 11:44 PM
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.
Apr 09 2021 02:44 AM
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).
Apr 09 2021 08:59 AM
Solution
Works just like I wanted, Never knew about doing it on the sheet tab. I have a lot to learn. Thank You.
Apr 09 2021 08:59 AM
Solution
Works just like I wanted, Never knew about doing it on the sheet tab. I have a lot to learn. Thank You.