Running a macro in ThisWorkBook on an external workbook

[JeffGrant]

Hi All,

I found this code from user 30percent from 2011 and am trying to adapt it for my use.

I am trying to run:
Thisworkbook = New System 80E-1.xlsm
Macro to run in this workbook = CreateUniqueBDIF

On an external workbook called Results.xlsx.

Sub Open_External_Workbook_Run_Macro()
Dim open_Workbook As Workbook
Dim wb As Workbook
Workbooks.Open Filename:="C:\Users\jeff\Desktop\BetfairBot\Results.xlsx"
Set open_Workbook = Application.Workbooks.Open("C:\Users\jeff\Desktop\BetfairBot\Results.xlsx")
Set wb = Workbooks.Open("C:\Users\jeff\Desktop\New Horses\New System 80E-1.xlsm")
Application.Run wb.Name & "!" & "CreateUniqueBDIF"
End Sub

However, I keep getting this 104 error:

saying the macro is not available, when it is definitely there.

Can somebody please tell me what I am doing wrong.
Thanks in advance for your help.

 

[Alex Blakenburg]

You workbook name New System contains spaces so you need to have single quotes around the workbook name:

    Application.Run "'" & wb.Name & "'!" & "CreateUniqueBDIF"

PS: You are also opening the same Results workbook twice, you don't need this line.

    Workbooks.Open Filename:=ThisWorkbook.Path & "\Results.xlsx"