Hi

You say you're placing dates on A1 and events on B1, but
you have B2 in your code?

Anyhow try this:

Private Sub CommandButton1_Click()
With Worksheets("Sheet1")
If Range("A1")= Date Then
MsgBox "Please do this: " & Range("B1")
Else
MsgBox "Pending"
End If
End With
End Sub

Libby
-----Original Message-----

hie guys, just started Excel programming & I could use
some help from
you gurus

I'm creating a reminder using excel & basically I'll
input the dates &
events in the sheets. At the moment, I'm stuck in playing
with the
DATES.
I'm placing my dates on A1 & events on B1

What I would like to do is:


With worksheets("Sheet1")
if range("A1").value = date then
msgbox("Please do this:" range("B2"))
else
msgbox("Pending")
endif
end with


I've linked this macro to a button, but whenever I press
the button, it
will only display "Pending" although I've set the date of
the events to
the current date!!

Please help!!

Thanks & Regards,
Xswoosh


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/

.