It will be reinventing the wheel.
In standard module
Sub AAA()
Dim objApp As CAppRunner
Set objApp = New CAppRunner
Set objApp.GetApp = Application
objApp.RunMethod "BBB"
End Sub
Sub BBB()
MsgBox "Hello world"
End Sub
and in a class module named CAppRunner
Option Explicit
Private mappGetApp As Application
Public Property Get GetApp() As Application
On Error GoTo HandleExit
Set GetApp = mappGetApp
HandleExit:
End Property
Public Property Set GetApp(rData As Application)
On Error GoTo HandleExit
Set mappGetApp = rData
HandleExit:
End Property
Sub RunMethod(strMacroName As String)
mappGetApp.Run strMacroName
End Sub
Artik