Worksheet_SelectionChange script errors for unknown reason

I would use the Intersect Method

If Not Intersect(Target, Range("J5:J100")) Is Nothing Then
    If Target.Value = "McMillian" Then
    
    End If
End If

Adjust the range reference to suit - it could be made dynamic so that additional rows are accounted for you expect data beyond row 100.