Pop-up message on Desktop
Every time the workbook is opened the message will appear if such a
condition exits
The code should be in THISWORKBOOK module.
Private Sub Workbook_Open()
Dim Rng As Range
Dim lNotCurrentDate As Long
Set Rng = Sheets("AppropriateSheetName").Columns("D:D")
lNotCurrentDate = WorksheetFunction.CountIf(Rng, "<" & Date)
If lNotCurrentDate 0 Then MsgBox "You have some accounts to be
deleted!"
End Sub
"That's Confidential" wrote in message
...
Don't know if this is the right NG to post this message in, but thought
I'd
try! If it ain't could somebody please point me in the right direction?
Within the cells in Column D in one of my Spreadsheet docs, some of the
cells will be shaded red and their date will be prior to today's date
(that
is to say the date when the spreadsheet is opened!)
Now, what I would like is, when there are any cells within this column
which
are shaded red or are past that day's date, I would like a message to pop
up
on the Desktop saying something like "You have some accounts to be
deleted!"
Furthermore, even if the Excel spreadsheet hasn't been used that day, I
would like it to still pop up with the message!
Any ideas?
NB: This spreadsheet will be used on my work's computer where a lot of
priviledges or barred etc.....
|