Hi
this line
Sheets("Sheet1").Range("A1").FormulaR1C1 = Now()

should throw an error. You probably meant:
Sheets("Sheet1").Range("A1").FormulaR1C1 = "=Now()"
though this will update the value with each re-calculation


--
Regards
Frank Kabel
Frankfurt, Germany

wrote:
it is possible and your not crazy.
in the workbook before save event put this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Sheets("Sheet1").Range("A1").FormulaR1C1 = Now()
Sheets("sheet1").Range("A2").FormulaR1C1 =
Application.UserName
End Sub

This will tell you the last time the wb was saved and who
did it. use what ever sheet and range you wish.

-----Original Message-----
Is there a formula or a way to input the last date a file was
modified into a cell? I have a spreadsheet that many users will be
accessing but will not be able to change. I want them to be able to
see the last time the information was updated. I could manually
type in the date, but I know I may forget sometime, so I want a cell
that show the last modified date automatically. Is this possible or
am I crazy?

thanks for your help.


.