Conditionally Delete Cells From Named Range

[marston.gould]

I have a 1-D named range "MYRANGE" in a column
I'd like to loop through this range, comparing
each of the values in this range to a specific value.
If the values are not the same, I want to delete that cell
from the named range and then move the other cells up.

Here's what I have so far:

Set rMyRange = Range("MYRANGE")
testvalue = "100"
rMyRange.Select
For Each cell in Selection
If left(Cstr(cell.value),3) <> testvalue Then
???? Select that cell ????
Selection.Delete Shift:=xlUp
End If
Next cell

Thanks in advance...

 

[Tom Ogilvy]

Dim rng as Range, rMyRange as Range
Dim testValue as String, cell as Range
Set rMyRange = Range("MYRANGE")
testvalue = "100"
rMyRange.Select
For Each cell in Selection
If left(Cstr(cell.value),3) <> testvalue Then
if rng is nothing then
set rng = cell
else
set rng = union(rng,cell)
end if
End If
Next cell
if not rng is nothing then
rng.Delete Shift:=xlshiftUp
End if

 

[marston.gould]

Thanks Tom