Deleting all rows that match a pattern

[Lazer]

How can I delete every row (and move all following rows up) tha
containts "-66-" somewhere in column B?

For example:

333-66-2219 'delete
333-22-1134 'leave as is
331-66-3562 'delete

I need this to run on both "Sheet1" and "Sheet2"...

Thanks so much!
Elieze

 

[Frank Kabel]

Hi
see:
http://www.xldynamic.com/source/xld.Deleting.html

in your case use also the isntr method. e.g.
If instr (<range<,"66")>0 then
'delete
end if