尝试从Outlook 2010运行Exel 2010宏

Question

我正在尝试从Outlook在工作簿中运行Excel 2010宏，在Excel中运行时，该宏工作正常。   Excel文件位于我的桌面上。 我已经使用MS Excel 14.0对象库设置了Outlook，并使用以下代码运行Excel宏。

Sub Insert_Excel_Record()

Dim ExApp As Excel.Application
 Dim ExWbk As Workbook
 Set ExApp = New Excel.Application
 Set ExWbk = ExApp.Workbooks.Open    ("C:\Users\Al\Desktop\Records.xlsm")
 ExApp.Visible = True

 ExWbk.Application.Run "Cust.Refresh_SQL"

 ExWbk.Close SaveChanges:=False

End Sub

宏会打开正确的文件并打开正确的工作表，但不会运行宏。
关于这可能是错误的任何建议。非常感谢