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

"punking315" wrote:

I recieve a runtime error..." method 'color' of object 'font' failed "


this is the code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim black As Long
Dim white As Long
black = vbBlack
white = vbWhite

If Cells(5, 2).Text = "gable" Then
Range("saltboxroofing").Font.Color = white
Else
If Cells(5, 2).Text = "saltbox" Then
Range("saltboxroofing").Font.Color = black
Else
End If
End If
End Sub

any help is appreciated