Date Macro

Hi

I have the macro set up so it should show when a spreadsheet was last modified by using the following;

Sub DateLastModified()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("T:\Jobs\Job Loading\Manual Job Loading\Job Board Brands\CareerStructure.com\Weekly Task Spreadsheet.xls")
Cells(2, 1) = f.DateLastModified
End Sub


and i have the auto run feature of;

Private Sub Workbook_Open()
Run "DateLastModified"
End Sub


However, when the spreadsheet is opened it gives me the date of when i'm opening the document and not when it was last saved by someone else who has just used it?

Can any1 please help!

Thanks

Mike

If the macro was to run on workbook close, that would tell you when it was last closed.

Ed

is it possible to have tell me when it was last saved or edited by someone else and not the time when i open the spreadsheet?

Thanks

Mike

I'm no VB wizard but have you tried this?

Private Sub Workbook_close()
Run "DateLastModified"
End Sub

When the book is closed the code runs and enters the date. When you open it, you can see when it was last closed. If you added a bit more code you could also have the user name of the last who closed it.

Ed