View Single Post
  #2   Report Post  
JulieD
 
Posts: n/a
Default

Hi blue

i did this for a workbook to remind people of when their first aid
certificate refresher is due by using the following two methods
1) set up conditional formatting on the worksheet containing the people's
names and the dates of the refresher so that a refresher a month is advance
changes to greeen, a week in advance it changes to yellow and on the day &
post it changes to red ... this was just done using format / conditional
formatting

2) set up a Workbook_Open macro which, when the workbook was opened, checked
to see if anyone was due for a refresher the following day, the code used
was:
Sub workbook_open()

Dim pname As String
Dim cur_date As Date

cur_date = Format(Now(), "dd/mm/yyyy")
For Each cell In Range("ExpiryDate")
If cell = cur_date + 1 Then
cell.Select
pname = ActiveCell.Offset(0, -3).Range("A1")
MsgBox pname & " is due for a refresher course tomorrow",
vbInformation, "Refresher Course"
End If
Next

End Sub

---
if this sounds like what you're after and you'ld like any more details on
how to do either of these steps please feel free to post back.

Cheers
JulieD

"blue" wrote in message
...