Hello, I'm looking to have data entered into say b1 and have a1(which is where the formula will be) enter todays date. I have used Today() but the day changes along with the day, I need that date to stay the same when the day changes
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Range("A1") = Date
Application.ScreenUpdating = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("J16:J71")) Is Nothing Then Exit Sub
Target.Offset(, -1) = Date
Application.ScreenUpdating = False
End Sub