This worked great. Thanks alot

Mike

"Gary''s Student" wrote:

Sub milmoe()
Set r = Range("A1:A100")
For Each rr In r
If rr.Value = DateValue(Now()) Then
MsgBox ("call your macro here")
End If
Next
End Sub

--
Gary''s Student - gsnu200720


"Mike Milmoe" wrote:

I want to write a macro, that will look for today's date in a database, and
if it finds it, do another action. I have already designed the other action.

Thanks!

Mike