Dates display as "38854"
Well, here's the code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 3 Then Exit Sub
If Intersect(Target, Columns("C:R")) Is Nothing Then
Exit Sub
End If
n = Target.Row
Cells(n, "N").Value = Format(Now, "mm-dd-yyyy")
End Sub
The purpose of this is to enter the current date in the N column any time
any piece of information in that row is updated. So it's designed to ignore
the first two rows (header rows, leave them alone), and keep everything else
updated. I tried disabling the code by commenting everything out, but I
still have the same problem. I'm not even sure that's what cause it in the
first place. Thanks again for the help.
|