Hello, I have the code below set to change the background color based on certain conditions. What I need to do is change it so that if none of the conditions are met, it does not change the color at all. As it is written now, if anything is entered in a cell that has a background already set, but does not meet these conditions, the cell turns white.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
On Error GoTo ErrorHandler
'change the conditions below
Select Case Target.Value
Case "OFF"
icolor = 35
Case "RTO"
icolor = 8
Case "vacation"
icolor = 8
Case "10-9 SBP"
icolor = 38
Case Else
End Select
Target.Interior.ColorIndex = icolor
ErrorHandler:
On Error Resume Next
End Sub
Thanks!
Clayton Grove
Bookmarks