Hi!

I need to help with VBA code.

I use it for coloring cell if contains some value from case selection.

The range is very large and my pc is vely slow.

Please help me with simplifying VBA code.

Private Sub Worksheet_Change(ByVal target As Range)

Dim rng As Range
Dim r As Range

    On Error Resume Next
    Set rng = Range("T6:T10000")
    On Error GoTo 0
    
    For Each r In rng
        Select Case r.Value
            Case vbNullString
                r.Interior.ColorIndex = xlNone
                r.Font.Bold = False
            Case "Doručeno", "Dodáno", "Uzavřeno"
                r.Interior.ColorIndex = 4
                r.Font.Bold = False
            Case "Objednáno", "Objednaný"
                r.Interior.ColorIndex = 44
                r.Font.Bold = False
            Case "Neobjednáno", "Neobjednaný", "Ne"
                r.Interior.ColorIndex = 3
                r.Font.Bold = False
            Case ""
                r.Interior.ColorIndex = 2
        End Select
    Next
End Sub