hi Kelly

Try this

If Not Intersect(Range("A1"), rng) Is Nothing Then
If Range("A1").Value 200 Then MsgBox "Hi 1"
End If
If Not Intersect(Range("B1"), rng) Is Nothing Then
If Range("B1").Value 200 Then MsgBox "Hi 2"
End If


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Kelly Thompson" wrote in message
...
Thank you that is working great, Now how can I make it look at more cells.
Since my timesheets are in months and their are the 4 weeks in each month.

Thank you for all the help

"Ron de Bruin" wrote:

Hi Kelly

Start here
http://www.rondebruin.nl/mail/change.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Kelly Thompson" wrote in message
...
What I have done is created a time sheet for a month, and it also gives me
the hours that are worked in a week. Do what I would like to do is when the
week goes over 40 hours send a email, a pop-up or some kind of message that
this person went over thier time. Can this be done?

Thank you

Kelly