Passing subroutine as a parameter

Andy, did you mean:

Sub test()
    Application.Run "Macro1", "macro2", 7
End Sub

or you could use

Sub test()
    Macro1 "macro2", 7
End Sub

TJ