I answered your later posting of this question.

--
Regards,
Tom Ogilvy


"HotRod" wrote in message
...
Tom
I've used the code that you have suggested but when I check the
UsedRange of the worksheet I still get 65536 as the used rows. Hence when
I
try to loop through my code it tries to test all 65536 Rows. IDEAS? Here
is
the code below. I've also posted this as a new topic.


First_Row = 3
Application.Worksheets("Work Sheet").Rows(First_Row).Resize(65536 -
First_Row).EntireRow.Delete

Debug.Print Application.Worksheets("Work Sheet").Rows.Count