You could use this sort of construct

Sub Auto_open()
Workbooks.Open ("Book1.xls")
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=550328