Duncan
12/12/2006 1:07:00 PM
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!!!