宏只能运行一次，第二次就显示禁用，怎么解决

宏代码只能运行一轮第二次就显示禁用了，这个是代码
Sub subAuto()
On Error GoTo Error_Line
Calculate
Application.OnTime Now + TimeValue("00:00:20"), "subAuto"
Exit_Line:
Exit Sub
Error_Line:
Resume Next
End Sub