Hello All,
I tried the following, but it is making all fonts black. What is it that I am doing wrong?
Thanks for looking at it and spending time on this for me. Appreciate your help.
Asad
I tried the following, but it is making all fonts black. What is it that I am doing wrong?
Code:
For Each c In .Range("A5:A170")
If c.Value = "Ex" Then c.Offset(, 1).Interior.Color = 192
c.Offset(, 1).Font.Color = vbWhite
If c.Value = "LT" Then c.Offset(, 1).Interior.Color = 49407
c.Offset(, 1).Font.Color = vbBlack
If c.Value = "Fr" Then c.Offset(, 1).Interior.Color = 32768
c.Offset(, 1).Font.Color = vbWhite
If c.Value = "St" Then c.Offset(, 1).Interior.Color = RGB(128, 96, 0)
c.Offset(, 1).Font.Color = vbWhite
If c.Value = "Av" Then c.Offset(, 1).Interior.Color = 10498160
c.Offset(, 1).Font.Color = vbWhite
If c.Value = "Ci" Then c.Offset(, 1).Interior.Color = 12611584
c.Offset(, 1).Font.Color = vbWhite
If c.Value = "" Then c.Offset(, 1).Interior.Color = xlNone
c.Offset(, 1).Font.Color = vbBlack
Next c
Thanks for looking at it and spending time on this for me. Appreciate your help.
Asad
Last edited: