View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
[email protected] karen.desberg@apollogrp.edu is offline
external usenet poster
 
Posts: 3
Default Auto Display a Message Box

I think this will do the job! The fact that you included the sample
code was the BEST! Thank you so much for your assistance.


bhofsetz wrote:
Karen,
In the ThisWorkbook module you can use a Workbook_Open event
handler.
When the workbook opens it will run any code you have there. Put your
code to loop through all the worksheets on in ThisWorkbook (use a For
Each Worksehet in ThisWorkbook loop) and check your due date against
'Date'. The example assumes your due date is in Range A1. If your due
date ends up in a different cell on each worksheet then this will
complicate things.


Code:
--------------------
Private Sub Workbook_Open()
Dim wks As Object
For Each wks In ThisWorkbook.Worksheets
If wks.Range("A1") <= Date Then
wks.Activate
wks.Range("A1").Select
MsgBox "This project is overdue!"
End If
Next wks
End Sub

--------------------


HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=567944