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....
|