G
Guest
MY PROBLEM IS THAT I used drop down when i select the name jhe the color
does not change please help.
If you could give me other macro I would appreciate it.
Thanks
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:c10")) Is Nothing Then
Select Case Target
Case "jhe"
icolor = 6
Case "mikoy"
icolor = 22
Case "mik"
icolor = 7
Case "gina"
icolor = 53
Case "gary"
icolor = 15
Case "fen"
icolor = 42
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub
does not change please help.
If you could give me other macro I would appreciate it.
Thanks
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:c10")) Is Nothing Then
Select Case Target
Case "jhe"
icolor = 6
Case "mikoy"
icolor = 22
Case "mik"
icolor = 7
Case "gina"
icolor = 53
Case "gary"
icolor = 15
Case "fen"
icolor = 42
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub