Duncan
12/12/2006 1:09:00 PM
This should be better:
Range("A3").Select
Myvalue = Selection.Value
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each cl In Range("A1:a" & lastrow)
MsgBox cl.Address
If cl.Value <> Myvalue Then
cl.EntireRow.Select
End If
Next
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!!!