Help With Code To Colour Cells

[Dazzawm]

I was given the code below so that when I enter the letters anywhere on the worksheet it colours them in. I have changed the spreadsheet around so it is running vertical rather than horizontally, but it doesn't work now and I thought it should make no difference! Help please!

The range now would be C4:CB316

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intclr As Integer
If Application.Intersect(Range("A1"), Range("h15")) Is Nothing Then
If Target.count > 1 Then Exit Sub
Select Case Target
Case "T"
intclr = 40
Case "Y"
intclr = 36
Case "C"
intclr = 35
Case "S1" To "S8"
intclr = 37
Case "O" To "o"
intclr = 43
Case "L1" To "L8"
intclr = 42
Case Else
End Select
Target.Interior.ColorIndex = intclr
End If
End Sub

 

[Sektor]

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim intclr As Integer
    
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("C4:CB316")) Is Nothing Then
        
        Select Case Target
            Case "T": intclr = 40
            Case "Y": intclr = 36
            Case "C": intclr = 35
            Case "S1" To "S8": intclr = 37
            Case "O" To "o": intclr = 43
            Case "L1" To "L8": intclr = 42
            Case Else
        End Select
        
        Target.Interior.ColorIndex = intclr
        
    End If
    
End Sub

 

[Dazzawm]

Thanks works great. Can it be amended slightly so that should I have to delete whatever is in the cell it will take the colour out please.

 

[Sektor]

Pardon?

 

[Dazzawm]

Well if I accidentally enter in a cell and need to delete it the cell remains the colour according to what was typed in there. Can it go back to no colour once I delete?

 

[Arcticwarrio]

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim intclr As Integer
    
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("C4:CB316")) Is Nothing Then
        
        Select Case Target
            Case "T": intclr = 40
            Case "Y": intclr = 36
            Case "C": intclr = 35
            Case "S1" To "S8": intclr = 37
            Case "O" To "o": intclr = 43
            Case "L1" To "L8": intclr = 42
            Case "" : intclr =  xlNone
            Case Else
        End Select
        
        Target.Interior.ColorIndex = intclr
        
    End If
    
End Sub

 

[Dazzawm]

Thanks articwarrior, are you a red?! lol.

 

[Arcticwarrio]

Im a BLUE!!!!

 

[Dazzawm]

Im a BLUE!!!!

Boooo !!!!