Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Select Case Target
Case "W"
Target.Interior.ColorIndex = 41
Case "R"
Target.Interior.ColorIndex = 3
Case "H"
Target.Interior.ColorIndex = 4
Case "S"
Target.Interior.ColorIndex = 15
Case "OA"
Target.Interior.ColorIndex = 13
Target.Font.ColorIndex = 36
Case "SH"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 36
Case ""
Target.Interior.ColorIndex = False
Target.Font.ColorIndex = False
Case TimeValue(Target.Text)
If Err.Number <> 13 Then
Target.Interior.ColorIndex = 36
End If
Case Else
Target.Interior.ColorIndex = False
Target.Font.ColorIndex = False
End Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not (Intersect(Range("H7:IA75"), Target) Is Nothing) Then
Select Case Target
Case "W"
Target.Interior.ColorIndex = 41
Case "R"
Target.Interior.ColorIndex = 3
Case "H"
Target.Interior.ColorIndex = 4
Case "S"
Target.Interior.ColorIndex = 15
Case "OA"
Target.Interior.ColorIndex = 13
Target.Font.ColorIndex = 36
Case "SH"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 36
Case ""
Target.Interior.ColorIndex = False
Target.Font.ColorIndex = False
Case TimeValue(Target.Text)
If Err.Number <> 13 Then
Target.Interior.ColorIndex = 36
End If
Case Else
Target.Interior.ColorIndex = False
Target.Font.ColorIndex = False
End Select
End If
End Sub