onTime

habe folgendes Problem:
___________________________________________
Private Sub CommandButton1_Click()
Call start
End Sub
___________________________________________
Private Function start()
Intervall = Now + TimeValue("00:00:01")
t = Format(Time, "hh:mm:ss")
Worksheets("Tabelle1").Range("A2") = t
Application.OnTime Intervall, "Start"
End Function
___________________________________________

Bei der Ausführung über CommandButton1 wird die Zeit in A2 eingetragen, aber nach einer Sec erhalte ich folgende Fehlermelsung:

MSEcxel kann das Makro '!Start' nicht finden.
woran liegt das? Ist das Makro "Start" hier nicht als Funktion definiert? Wo ist mein hänger?

Vielen Dank und Grüsse