Passing subroutine as a parameter

**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