Dennis
I would be cautious with this as I hate shared workbooks, but... You could
set an Workbook_Open() event and use
Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00"), "saveattime"
End Sub
This goes in the ThisWorkbook module and this goes in a standard module
Sub saveattime()
ThisWorkbook.SaveAs "C:\Newname.xls"
End Sub
One runs the other, but I would do a great deal of testing, particularly if
many people will be using it at 5:00pm
--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)