Depending on exactly what you are trying to do, this may be something you
might be interested in playing with......
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Cell font type, size, and color depends on cell value
'Also works on formula results
If IsNumeric(Selection.Value) And Selection.Value <> "" Then
Select Case Selection.Value
Case 0 To 9
Selection.Font.Name = "script"
Selection.Font.ColorIndex = 3
Selection.Font.Size = 10
Case 10 To 20
Selection.Font.Name = "ariel"
Selection.Font.ColorIndex = 5
Selection.Font.Size = 12
Case Is > 20
Selection.Font.Name = "times new roman"
Selection.Font.ColorIndex = 8
Selection.Font.Size = 14
Case Else
GoTo 100
End Select
100
End If
End Sub
hth
Vaya con Dios,
Chuck, CABGx3