View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Harald Staff[_2_] Harald Staff[_2_] is offline
external usenet poster
 
Posts: 449
Default Event Macros Help Needed

Rightclick sheet tab, "view code", paste this in and edit address and
values:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False, xlA1) = "C1" Then
Select Case Target.Value
Case "a"
Target.Interior.ColorIndex = 8
Case "b"
Target.Interior.ColorIndex = 39
Case "c"
Target.Interior.ColorIndex = 10
Case "d"
Target.Interior.ColorIndex = 14
'and so on
Case Else
End Select
End If
End Sub

HTH. Best wishes Harald

"edo" wrote in message
...
Is it possible to create a formula to have items in a dropdown menu in a
cell
automatically change to a certain color when selected? There are more than
3
colors so Conditioning Format will not work for this....