Anyone have a VBA code to run an Access Macro in Excel?

[Allemang]

Was given a project at work to fix an Excel workbook that pulled info from an Access Macro. The error is a 'Run-Time Error: 7866.' This is the current code and the line with asterisks is the line the debugger highlights:

Sub Macro1()
'
' Macro1 Macro
'

'
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application")
A.Visible = False
*A.OpenCurrentDatabase ("H:\Distpatch - Broker Loads Fixed.accdb")*
A.DoCmd.RunMacro "Summarize"
Application.DisplayAlerts = True
ActiveWorkbook.RefreshAll
End Sub

Anyone have any advice or a different code to run this macro?

Thanks.

[ragulduy]

I know nothing about access so could be way off but shouldn't it be .accdb not .accbd?

Also you might need to remove the brackets from that line, you normally would use bracketed arguements when a line has an "=" in it.

[Allemang]

Thanks for the reply.. sorry about the code error, I did notice that prior to posting but it didn't help... Neither did removing the brackets