Don't know what the Auto_Close is about but this works...

Public Sub Test_Me()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:15"), "CloseMe"
End Sub

Public Sub CloseMe()
Application.ActiveWorkbook.Close
End Sub

where the CloseMe( ) procedure is in a standard module

--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown



"Neil Holden" wrote:

Please tell me what i'm doing wrong, i want the entire excel document to
close??

Call Application.OnTime(Now + TimeValue("00:00:15"),
"ThisWorkbook.Auto_Close")

Thanks.