This is how I do it from powerpoint - should work in
Access as well.

regards
Sean



Sub Main()

Dim appXL As Excel.Application
Set appXL = New Excel.Application
appXL.Visible = True

appXL.Workbooks.Open "D:\???\xxx\fn.xls"
appXL.Run ("sDriver") ' run the excel macro

appXL.ActiveWorkbook.Save
appXL.Quit

ActivePresentation.Save
Application.Quit

End Sub