Public Timestart As Boolean
Sub Doit()
If Timestart Then
Application.OnTime Now + TimeValue("00:00:05"), "Report"
End If
End Sub
Sub Report()
MsgBox ("Here is the report")
Doit
End Sub
Sub StartTimer()
Timestart = Not Timestart
End Sub