Hello,
I need to change the font color of the entire row for any cells containing the word BATTERY in a column with named range TEXT1. I have tried conditional formatting, but it only changes the font to green within that column, not the entire row.
Currently I am also using the code below within this report to change any rows with "000" to red.
Sub Incomplt_Calls()
Dim n
' RED
Application.EnableEvents = False
Sheets("Call Data").Select
[SEQ1].Select
For Each n In Range("SEQ1")
If n.Value <> "000" Then
n.EntireRow.Font.color = RGB(255, 0, 0)
End If
Next n
Application.EnableEvents = True
End Sub
I tried using the same code for the green rows, but nothing happens. Sample of code below:
Sub Incomplt_Calls()
Dim m
' GREEN
Application.EnableEvents = False
Sheets("Call Data").Select
[TEXT1].Select
For Each m In Range("TEXT1")
If m.Value = "BATTERY*" Then
m.EntireRow.Font.color = RGB(0, 150, 0)
End If
Next m
Application.EnableEvents = True
End Sub
Can anyone suggest what am doing wrong?
Bookmarks