Thread: Color
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Mike Mike is offline
external usenet poster
 
Posts: 3,101
Default Color

Sub colorChange()
If Range("A1").Value 100 Then
If Range("A1").Value < 200 Then
Range("B1").Interior.ColorIndex = 3
Else
Range("B1").Interior.ColorIndex = 11
End If
End If
End Sub

"AlanW" wrote:

Could someone please show me the way to have a cell color changed based on
the condition of another cell. For example, if A1 100 and < 200 then B1's
color is red else blue. Thank you.