Put this code in the module:

Private Sub Auto_Open()

Call datechk

end su

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