Hi,

Try manipulating this, I think it does the reverse of what you want so
you can take the "not" out if so, explain more if not.

Range("A3").Select
MyValue = Selection.Value
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each cl In Range("A1:a" & lastrow)
If Not (cl = "Myvalue") Then
Selection.EntireRow.Select
End If
Next



Regards

Duncan

bodhisatvaofboogie wrote:
Range("A3").Select
MyValue = Selection
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set cell = Cells(a, "A")

If Not (cell = "Myvalue") Then
Selection.EntireRow.Select

End If

This statement Is just not working. Where am I going wrong? It is
supposed to do the following:

Select a specific cell -- Whatever that value is, set it to Myvalue. THEN
search through the column ("A:A") and if the cell is not equal to that
Myvalue, then select the entire row. Make sense?

THANKS FOR THE HELP!!!