Hope I explain this good enough.

Cell A6 has an If-then formula that will show "Send Now" in the cell if
the date in another column matches a certain criteria.

=IF(E7<1,"",IF(E7<=WORKDAY(TODAY(),1,Holidays_2007 ),"SEND NOW",""))
The cell will show SEND NOW if the criteria matches. Otherwise the cell
will have the formula in it, but will look blank.

I'm trying to write a macro that will recognize when the cell shows
Send Now, as opposed to just the formula. Here's a simplified version
of what I want. This doesn't work, but it shows the concept of what I'm
trying to do.

Range("A6").Select 'cell with the
formula in it
If ActiveCell.Value = "Send Now" Then 'How do I write this line
so that SEND NOW is recognized?
Range("L8").Select
ActiveCell.Value = "Send Now"
End If

I've search Help, and other postings here, but can't find the answer.
If you could help, I'd appreciate it very much.
Thanks,
J.O.

I appreciate the help of everyone. GEEZ. I didn't see the upper/lower
case problem. Great suggestions. Also, thanks for showing how to write
the code a little cleaner.
Thanks again.
J.O.
Tom Ogilvy wrote:
Missed that you were writing to L8

if lcase(Range("A6")).Value = "send now" then
Range("L8").Value = "Send Now"
else
Range("L8").clearcontents
End if

--
Regards,
Tom Ogilvy



"Tom Ogilvy" wrote:

if lcase(Range("A6")).Value = "send now" then
msgbox "Send Now
End if

Don't set the value of the cell with code, or you will overwrite your
formula (unless that is what you want to do).

The test for not send now would be

if Range("A6").Value = "" then

msgbox "don't send now"
End if

--
Regards,
Tom Ogilvy

"excelnut1954" wrote:

Hope I explain this good enough.

Cell A6 has an If-then formula that will show "Send Now" in the cell if
the date in another column matches a certain criteria.

=IF(E7<1,"",IF(E7<=WORKDAY(TODAY(),1,Holidays_2007 ),"SEND NOW",""))
The cell will show SEND NOW if the criteria matches. Otherwise the cell
will have the formula in it, but will look blank.

I'm trying to write a macro that will recognize when the cell shows
Send Now, as opposed to just the formula. Here's a simplified version
of what I want. This doesn't work, but it shows the concept of what I'm
trying to do.

Range("A6").Select 'cell with the
formula in it
If ActiveCell.Value = "Send Now" Then 'How do I write this line
so that SEND NOW is recognized?
Range("L8").Select
ActiveCell.Value = "Send Now"
End If

I've search Help, and other postings here, but can't find the answer.
If you could help, I'd appreciate it very much.
Thanks,
J.O.