Hi!

Thanks for the tip! But now I have another problem.
How to close just the active workbook?
------------------------------------------------------
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
'
' The procedure is called by Windows. Put your
' timer-related code here.
'
' -# Both of these lines will close all documents and
' exit Excel #-

ThisWorkbook.Close
ActiveWorkbook.Close

' -# This line doesn't work, because this code has to be
' in module #-

Me.Close

End Sub
------------------------------------------------------

-AnsiSy

--
Message posted from http://www.ExcelForum.com