Give the following code a try:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2:K" & Rows.Count), Target) Is Nothing Then Exit Sub
Range("B1").Value = Now
To change the date format, if necessary, go to the cell properties (Ctrl+1).
Say "Thank you"
Glad we were able to help! Love us? Write us a review! Rate CCM
6070 users have said thank you to us this month