use Run method of Application object. sample: Dim xlApp As Excel.Application,xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.application") Set xlBook = xlApp.Workbooks.Open("E:\BOOK1.XLS") xlApp.Run ("Macro1") ....
sample:
Dim xlApp As Excel.Application,xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open("E:\BOOK1.XLS")
xlApp.Run ("Macro1")
....