VBA to change cell colours and font colours based on values

[asad]

Hello All,

I tried the following, but it is making all fonts black. What is it that I am doing wrong?

                     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

 

[footoo]

If c.Value = "Ex" Then
    c.Offset(, 1).Interior.Color = 192
    c.Offset(, 1).Font.Color = vbWhite
ElseIf c.Value = "LT" Then
    c.Offset(, 1).Interior.Color = 49407
    c.Offset(, 1).Font.Color = vbBlack
'ETC.......

 

[asad]

Thanks Mr. footoo