Hi folks, I am trying to implement a similar piece of code and I am just running into a hell of a time with it.

The code I am trying to use to call the procedure Picture_Update is as follows:
Application.OnTime EarliestTime:=TimeValue("16:53:45"), Procedure:="'Scheduler.Picture_Update picCount, arNames()'", Schedule:=True

The sub I want to run looks like this. I keep getting a Macro-not found error when the time comes around. Can anyone tell me what I am doing wrong? I think it has something to do with how I am trying to pass the variables.

Public Sub Picture_Update(picCount, ByRef arNames() As String)

With BOARD_DISPLAY.IMAGES
Picture_Path = ("C:\PICTURES_STREAM\" & arNames(picCount))
.Picture = LoadPicture(Picture_Path)
BOARD_DISPLAY.Repaint
If Cancel Then Exit Sub
picCount = picCount + 1
End With
End Sub