Schedule-Public VARIABLE

Function geregelt. Kann mir jemand helfen ? Im voraus vielen Dank.
PS: Dieser Code steht in einem allg. Modul
Public i as Date

Sub timer()
Dim i As Date
'Range("E14").Value = Worksheets("Parameter").Range("D9").Value
'Worksheets("Menü").Range("E20") = "Timer Aktiviert"
i = Workbooks("prognose.xls").Worksheets("Parameter").Range("D9").Value
i = Format(i, "hh:mm")
Application.OnTime TimeValue(i), "Auswertung"
End Sub





Sub AbschaltenTimer()
Application.OnTime TimeValue(i), "Auswertung", Schedule:=False
'Worksheets("Menü").Range("E20") = "Deaktiviert"
End Sub