Application OnTime Error

[EssoExplJoe]

When the following code runs, I get an error (Method of "OnTime" object failed) on the line where "Schedule=:False". Why am I getting this error:

i = i + 1
  ActiveSheet.Cells(2, 2) = CStr(i)
  Application.OnTime Now + TimeValue("00:01:00"), "RunTime"
  'On Error Resume Next
  Application.OnTime Now + TimeValue("00:00:05"), "RunTime", Schedule:=False