thank you for the help. I must have some other underlying problem. it still
kicked the same error but referencing 'colorindex'.


"Mike H" wrote:

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(5, 2).Text = "gable" Then
Range("saltboxroofing").Font.ColorIndex = 2
Else
If Cells(5, 2).Text = "saltbox" Then
Range("saltboxroofing").Font.ColorIndex = 1
Else
End If
End If
End Sub


Mike