Celle colorate

Sub colora()
Dim rng As Range
Dim cel As Range
Set rng = Range("C4:K34")
For Each cel In rng
    Select Case cel.Column
        Case Is = 3
        If Cells(cel.Row, 2).Value = "Martedì" Then
            cel.Interior.ColorIndex = 6
        End If
        Case Is = 5
        If Cells(cel.Row, 2).Value = "Venerdì" Then
            cel.Interior.ColorIndex = 43
        End If
        Case Is = 7
        If Cells(cel.Row, 2).Value = "Mercoledì" Then
            cel.Interior.ColorIndex = 46
        End If
        Case Is = 9
        If Cells(cel.Row, 2).Value = "Mercoledì" Or Cells(cel.Row, 2).Value = "Sabato" Then
            cel.Interior.ColorIndex = 33
        End If
        Case Is = 11
        If Cells(cel.Row, 2).Value = "Lunedì" Or Cells(cel.Row, 2).Value = "Giovedì" Then
            cel.Interior.ColorIndex = 44
        End If
    End Select
Next cel
End Sub