Is there a way to place a date stamp into a sheet the first time it is "saved
as" such that it remains unchanged on subsequent saves?

Ideally the date stamp should be in a specified cell and locked for editing
by users other than the sheets author

Can anyone help?

Thanks,

Roger

This is in the VBA help file. It looks like what
you are after, but I have never used it, so I
am not sure it sets a new date on the SaveAs
file name. You can test it for yourself.

Sub ShowFileInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = "Created: " & f.DateCreated
MsgBox s
End Sub

filespec is the name of your file, of course.

"Roger on Excel" wrote:

> Is there a way to place a date stamp into a sheet the first time it is "saved
> as" such that it remains unchanged on subsequent saves?
>
> Ideally the date stamp should be in a specified cell and locked for editing
> by users other than the sheets author
>
> Can anyone help?
>
> Thanks,
>
> Roger