sub My_Procedure

your code here

' this is one line command
Application.OnTime Now + TimeValue("00:05:00"), "my_Procedure"

end su

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