Perhaps something like this?

Application.Workbooks.Open ("C:\Documents an
Settings\Simon\Desktop\test.xls")
With Workbooks("test.xls")
Application.Run ("Macro1")
End Wit

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=57321