My code reads like this:

Sub FormatSchedule()
'
' FormatSchedule Macro
' Macro recorded 07/09/2003 by sbtp00220
'
On Error Resume Next
Call FormatMainWS
Application.Run "'Trainer Overview Template.xls'!
ColorPMMD01"
Application.Run "'Trainer Overview Template.xls'!
ColorPMMD02"
On Error GoTo 0
End Sub

How can I modify it to avoid this error message at the end
of its execution:

Run-time error 91
Object variable or With block variable not found
Run-