Hi,

I have at the moment (from anotehr project the below code);

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

    If Not Intersect(Target, Range("A1:K34")) Is Nothing Then
        Select Case UCase(Target)
            Case "W", "W.5"
                icolor = 6
            Case Else
                'Whatever
        End Select
        
        Target.Interior.ColorIndex = icolor
    End If

End Sub

Where the W is I want it to see Ms and change the color...but it's not working and I'll explain why..

At the moment the code is looking for an exact match.. so if exact match is MS then color change...

What I have is a list of names that will be pasted into a sheet.. and where the is a Ms (female) I want the color to change

So when I change the W to Ms it only works if the cell has Ms ONLY...if it has Ms E Empty then it does not work?

Anyone have experience with this than I do?

Cheers ahead & have a happy new year.