Elaine,

First thing is to do is remove the "End If", line 4 of my response.
It should not be there. Only the first line should have
been changed.

If that wasn't the problem then have you changed anything else...

Does the code have " _" at the end of the first line?
Is the code still in the same module?
Do you have an "Option Compare Text" statement at the top of the module?
Are you testing the same data?
Can you determine if it is the "Like" operator or is it the "Instr" function that
is failing? ( by stepping thru the code)

Regards,
Jim Cone


"Elaine" wrote in message ...
Jim:

I tried it but it did not work. I am not sure what it is that I am doing
incorrectly. I replaced your line with the one that I had and now it looks
just the way you have it. However, nothing happens -- the code doesn't seem
to find anything -- including the 00 totals! Could you please help again?

"Jim Cone" wrote:
Elaine,
The Like operator can do what you ask, so just changing the first line...
'--------------------------
If rngCell.Value Like "*0# total*" And _
InStr(1, LCase(rngCell.Offset(1, -2).Value), "total") = 0 Then
rngCell.Offset(2, 0).FormulaR1C1 = "=R[3]C[1]"
End If
'--------------------------
Regards,
Jim Cone
San Francisco, USA



"Elaine" wrote in message
...
I have a line of code that sees if a subtotal contains the text "00 total".
However, some of the totals can be "01 total", "04 total". All totals have 0
as their second last number but not as their last number. Is there an easy
way to correct the following code to take care of this discrepancy?
If InStr(1, LCase(rngCell.Value), "00 total") 0 And _
InStr(1, LCase(rngCell.Offset(1, -2).Value), "total") = 0 Then
rngCell.Offset(2, 0).FormulaR1C1 = "=R[3]C[1]"
--Elaine