some ways onem of them
...
Dim XCL As Long
On Error Resume Next
XCL = DDEInitiate("Excel", "System")
If Err Then
Err = 0
Shell "Excel.exe ""C:\TMP\BOOK1.XLS""", 1
If Err Then Exit Sub
XCL = DDEInitiate("Excel", "System")
End If
DDEExecute XCL, "[Run(""prim"")]"
DDETerminateAll
...
PS
1)disable warning message about startup macro
in Excel
2) prim is name of macro in excel
3) dont forget insert -
ActiveWorkbook.Save
into the end of prim macro
but i recommend you do via DAO