Excel file does not close with the macro for now()

[nr6281]

Hi All,

I am having an issue here I have a macro running to auto refresh a template for ()now formula, Now the macro works fine but the excel wont close I have to kill it in the task manager. And even the copy pasting of data is becoming an issue.

Please help,

Macro in this work book

##Private Sub Workbook_Open()
    Call Application.OnTime(Now + TimeValue("00:00:01"), "AutoCalculate")
End Sub

Macro in Module
Sub AutoCalculate()
' AutoCalculate Macro
    Calculate
    Call Application.OnTime(Now + TimeValue("00:00:05"), "AutoCalculate")

End Sub

Any help appreciated...