Change VBA to cover column not just one cell

[wazzulu1]

Hi;

I was trying to change this to cover entire columns, if T2 is " ", then A2 font would turn red. I have this for that specific cell, but would like to have this cover the entire columns to perform this action if possible?

Sub Pop()
If Range("T2") = "" Then
    Range("A2").Font.Color = vbRed
Else
   Range("A2").Font.Color = vbBlue
End If
End Sub

 

[Michael M]

Try

Sub Pop()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "T").End(xlUp).Row
For Each cell In Range("T2:T" & lr)
If Range("T" & r) = "" Then
    Range("A" & r).Font.Color = vbRed
Else
   Range("A" & r).Font.Color = vbBlue
End If
Next r
End Sub

 

[wazzulu1]

Hi Michael;

I got this error message using this code:
Compile error: Invalid Next control variable reference

 

[Tetra201]

See if this works for you:

Sub Pop()
    Dim rng As Range, cll As Range
    Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp))
    rng.Font.Color = vbBlue
    For Each cll In rng
        If cll.Offset(, 19) = "" Then cll.Font.Color = vbRed
    Next cll
End Sub

 

[wazzulu1]

Thanks Tetra201;

This worked!!!