Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hi all,
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range("C1:C50")) Is Nothing Then With Target Select Case UCase(.Value) Case "A": .Interior.ColorIndex = 3 Case "B": .Interior.ColorIndex = 4 Case "C": .Interior.ColorIndex = 5 Case "D": .Interior.ColorIndex = 6 Case "E": .Interior.ColorIndex = 7 Case "F": .Interior.ColorIndex = 8 Case "G": .Interior.ColorIndex = 9 Case "H": .Interior.ColorIndex = 10 Case "I": .Interior.ColorIndex = 11 Case "J": .Interior.ColorIndex = 12 Case "K": .Interior.ColorIndex = 13 ' Selection.Font.ColorIndex = 3 End Select End With End If ws_exit: Application.EnableEvents = True End Sub -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200805/1 |