Conditional fomatting

J

jeff

Hi,

No. sorry you're stuck. Expanding on this code may help:


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Application.EnableEvents = False
Dim r As Range
Set r = Range("A1:A10")
For Each c In r
Select Case c.Value
Case 0
c.Font.ColorIndex = 38
With c.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Case 1
c.Font.ColorIndex = 6
With c.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Case 2
....
Case ...continue with rest
End Select
Next c
Application.EnableEvents = True

End Sub

jeff
 
Top