Naming a sub (closing a document automatically)

I want the document to close automatically, but I can't succeed in naming the sub - what am I doing wrong? (there might also be a problem with the Application.OnTime part of the code, am not sure though)

Please Login or Register  to view this content.

Thanks! Not working though

This one is closing the wb acter 5 secs.
Perhaps you can use this one?

Please Login or Register  to view this content.

I fixed it with the following code (or so it seems)

Please Login or Register  to view this content.

Thank you all!