Bold Entire Row

[spyldbrat]

My spreadsheet is from Col A to Col O

Some rows in Col C contain a number followed by the word Total (1234 Total).

I want to bold the entire row for all that that contain the word Total. Below is macro I am using -- can someone tell me what I doing wrong?

For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3) = "%Total%" Then
Rows(i).EntireRow.Font.Bold = True
End If
Next

 

[Fluff]

Try

If Cells(i, 3) like "*Total*" Then

 

[daverunt]

Not sure what %Total% does

I would use InStr with a case check

If InStr(LCase(Cells(i, 3)), "total") > 0 Then

 

[Rick Rothstein]

I would use InStr with a case check

If InStr(LCase(Cells(i, 3)), "total") > 0 Then

You don't need the LCase function call as InStr has the "case check" ability built-in to itself...

If InStr(1, Cells(i, 3), "Total", vbTextCompare) > 0 Then

Note: When you use the vbTextCompare argument, it does not matter what letter casing you use for the word being searched for.

 

[daverunt]

Hey Rick,

I didn't realise that!
Thanks.
I'll probably forget it in a week or two though....