Use Alans his works :)

mine should have said
For Each c In myRange.Cells
If c.Value = 16 Then c.EntireRow.Delete
Next

Steve


On Tue, 15 Aug 2006 13:42:32 +0100, maw via OfficeKB.com <u12713@uwe
wrote:

Wow,

Thank you both very much, such a quick response.

Both solutions seem to work perfectly,

Thanks again!

Mark




--
Steve (3)