Need help on a macro instead of conditional formatting.

[Roco]

I tried to use this formula [=IF($E$11:$E$207,IsBold)] to highlight the bold numbers, but I am getting nothing. Any help on this would be greatly appreciated.

popipipo tried helping me out with [=ISNUMBER(FIND("Total",A1,1))], which worked in conditional formatting until I would hit the "Refresh" button and then it would disappear out of conditional formatting.

Looks like I would need to have some help getting this done with using a macro. Any help on this would be greatly appreciated. Please see attached file.

Roco

[xladept]

This works when there are bold numbers in E (the sample had none):

Sub RocoH(): Dim R As Range
For Each R In Range("E11:E" & Range("E" & Rows.count).End(xlUp).Row)
If R.Font.Bold = True Then R.Interior.ColorIndex = 6
Next: End Sub

[Roco]

Is it possible for it to look for the text "Total" and high the whole row instead?

Roco

[xladept]

You can look for just about anything - at a quick glance I saw no "Total" by itself?

[Roco]

Total is not by itself....but if you look close enough you will see it just to the left of where the column E is being total for each item.

[xladept]

Then this:

Sub RocoHT(): Dim r As Range
For Each r In Range("A11:A" & Range("A" & Rows.count).End(xlUp).Row)
If InStr(1, r.Value, "Total") Then r.Interior.ColorIndex = 6
Next: End Sub

[Roco]

That works great...can you make it so that it includes one more cell in each row that has "Total" so that it includes the cell in column "E".

[xladept]

There is no such cell in E but:

Sub RocoHT(): Dim r As Range
For Each r In Range("A11:A" & Range("A" & Rows.count).End(xlUp).Row)
If InStr(1, r.Value, "Total") Then r.Interior.ColorIndex = 6
If InStr(1, r.Offset(0, 4).Value, "Total") Then r.Interior.ColorIndex = 6
Next: End Sub

Ought to do it

[Roco]

Thanks for taking a look and helping me out on this...I appreciate your time.

Roco

[xladept]

You're welcome and thanks for the rep!