Unfortunately that doesn't work. I get a "Compile error: Expected: end of statement" when I try that.
Application.Run "" & Sheetname & "!" & Macroname & ""
Unfortunately that doesn't work. I get a "Compile error: Expected: end of statement" when I try that.
I think you got this error because your sheetname contains some spaces. Maybe you should try this expression :
Application.Run "'" & Sheetname & "'!" & Macroname
Application.Run ("" & Sheetname & "!" & Macroname & "")