View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
 
Posts: n/a
Default Last Saved Date Formula / Function

Hi there

Working with Excel 2003 - I dug some code up on the group, but I must
be doing something wrong. I entered this code in the Visual Basic
Editor.
==========
Function LastSaved() As Variant
'this function used to recall the last-saved date on the file
On Error GoTo NotSaved

LastSaved = ThisWorkbook.BuiltinDocumentProperties("Last save time")
Exit Function

NotSaved:
LastSaved = False

End Function
==========

Then in a cell I put:
=LastSaved()

However, while it inserts the current time, it does not seem to pickup
saves. I tried this:
Create worksheet
Insert function (puts in current time)
Save/close
Re-open
Edit a cell then save - no change
Close/Re-open - no change
But if I then copy/paste the formula the copy takes (I presume) the
current date - so there is life there - just no smarts.

Any tips would be great - I don't have much experience with Functions.
Thanks
Dave