Ucase (VBA) - If "MS" then change color

Originally Posted by VBA Noob

Maybe

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

If Not Intersect(Target, Range("A1:K34")) Is Nothing Then
    Select Case True
        Case UCase(Target) Like "*MS*"
        icolor = 6
        Target.Interior.ColorIndex = icolor
    Case Else
        Target.Interior.ColorIndex = xlNone

    End Select
End If
End Sub

VBA Noob

OMG that works !!

Thanks a zillion dude !