Worksheet_SelectionChange script errors for unknown reason

**addylad92** · 12-25-2012, 03:30 PM

Hi there

My VBA code is giving me trouble (Excel 2010). This is supposed to trigger another macro (using Worksheet_SelectionChange) if the cell selected is in column 10 and row 5 onwards, and contains particular text. The script works fine normally, but in U5, where it should not do anything, this code shows up in yellow.

If Target(1, 1).Column = 10 And Target(1, 1).Row > 4 And Target(1, 1).Value = "McMillan" Then

Any ideas?

Thanks.

**Palmetto** · 12-25-2012, 04:02 PM

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.

**OllieB** · 12-25-2012, 05:11 PM

I would use:

     If Target.Column = 10 Then
          If Target.Row > 4 And Target.Value = "McMillan" Then
               'execute code
          End If
     End If