Date sheet first used

[Roger on Excel]

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

 

[JLGWhiz]

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.