Passing subroutine as a parameter

**jartzh** · 03-26-2009, 11:35 AM

I want to pass the name of the routine as a parameter.

sub  macro1(a,b)
run a(b)
end sub

'which should run subroutine "a" with the parameter of "b".

sub macro2(c)
end sub

so

the code

run macro1("macro2",7)

should run macro 2 with the parameter of 7.

I get errors every time I try it (with "calls", "runs",...)

**Andy Pope** · 03-26-2009, 11:47 AM

works for me

Sub Macro2(c)
    
    MsgBox "Macro2 " & c
    
End Sub

Sub Macro1(a, b)

    Application.Run a, b
    
End Sub

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

**tinyjack** · 03-26-2009, 12:02 PM

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

**Andy Pope** · 03-26-2009, 12:05 PM

Indeed I did

Thanks for the correction

**jartzh** · 03-26-2009, 12:31 PM

I am still getting errors:

My code is

Sub day1move()
 rundailyloadroutine "loadoverroutine", 7
End Sub

Sub rundailyloadroutine(a, b)
 Run a(b)
End Sub

Sub loadoverroutine()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

but I get a "runtime error 13 type mismatch on the "run a(b).
and a "compile error. expected sub,function,or property" fif I try call a(b)

Thanks guys

**Andy Pope** · 03-26-2009, 12:38 PM

loadoverroutine had no argument which meant even after correcting the Run command it would still fail.

Either add the argument to the loadoverroutine routine header or
remove b from the Run command.

Sub rundailyloadroutine(a, b)
 Run a, b
End Sub

Sub loadoverroutine(b)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub