Let's say you want cell A1 to contain the date whenever any cell on that
sheet is changed. In worksheet code put the following macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("A1").Value = Format(Now(), "dd mmm yyyy")
Application.EnableEvents = True
End Sub
--
Gary's Student
gsnu200704


"Ammo2004" wrote:

How do you formulate a cell to automatically insert the current date? (Not
in Header/Footer but in a cell of the actual body of the worksheet)

I want my form to automatically insert the current date each time I update it.