Macro to Compare one cell to a range of cells

[Jmg4326]

Hello everyone - I am trying to create a macro that has in if then statement that is relying on whether or not the value of one cell is found within the range of a bunch of cells. It looks like the below. Any suggestions?

If ActiveCell.Value <> Range("F7:F130").Value Then
ActiveCell.Offset(0, 1).Select
Else: Selection.EntireRow.Select
Selection.Delete
End If

 

[CharlesChuckieCharles]

look at INTERSECT

 

[VoG]

Try

If IsError(Application.Match(ActiveCell.Value, Range("F7:F130"), 0)) Then
    ActiveCell.Offset(0, 1).Select
Else
    ActiveCell.EntireRow.Delete
End If

 

[CharlesChuckieCharles]

No don't MATCH is better

 

[Jmg4326]

You guys are the best!! Works perfectly.