Passing subroutine as a parameter

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