Run marco of a source file in the source file via marco of a master patch file

[freeman6479]

All,
I have a master excel patch file with which I can make changes in excel files in a specific folder.
This works fine.
Now, I'm looking for a solution to run marcos of the source files via the patch macro.
This works good when I enter the absolute file name plus macro name:

Application.Run "ade - file145.xlsm'!Update2"

but not if I use the variable for the file name which is needed in my case because the patch marco loops through all files in the source folder and should run the update2 macro in every source file.:

Application.Run "theopenworkbook!Update2"

I think I got something wrong with the "" settings around the variable theopenworkbook.

Do you have any idea how to fix this?

Thanks
freeman

[TMS]

Untested, but try:

Application.Run ActiveWorkbook.name & "!Update2"

Regards, TMS

[freeman6479]

thanks TMS, unfortunately it doesnt work. It simly doesnt run the marco if I change from true filename to any variable. that sucks....

[freeman6479]

Got it: yeaahh Champagne!!!

modelfile = ActiveWorkbook.Name

Application.Run "'" & modelfile & "'!Update2"

[TMS]

In the calling workbook (Calling Workbook.xls):

Sub TestCall()

Dim CalledWB_Name As String
CalledWB_Name = "'Called Workbook.xls'"

Dim CalledWB_Name2 As String
CalledWB_Name2 = "Called Workbook.xls"

Application.Run "'Called Workbook.xls'!TestMessage"

Application.Run CalledWB_Name & "!TestMessage"

Application.Run "'" & CalledWB_Name2 & "'" & "!TestMessage"

End Sub

In the called workbook (Called Workbook.xls)

Sub TestMessage()

MsgBox _
    ThisWorkbook.Name & " macro running" & vbCrLf & _
    "ThisWorkbook: " & ThisWorkbook.Name & vbCrLf & _
    "ActiveWorkbook: " & ActiveWorkbook.Name & vbCrLf & _
    "ThisWorkbook: " & ThisWorkbook.Name
    
End Sub

Note where the single quotes are surrounding the file name.

Regards, TMS