View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Kamran Kamran is offline
external usenet poster
 
Posts: 19
Default 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.