Sub SampleSize()
Sheets(3).Range("A" & Sheets(1).Range("B3").Value + 2 & ":A" & _
Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Delete
End Sub
--
Regards,
Tom Ogilvy


"STEVEB" wrote in
message ...

Thanks for all your help.

This worked deleting the contents in column A:

Sub SampleSize()
Sheets(3).Range("A" & Sheets(1).Range("B3").Value + 2 & ":A" & _
Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row).Delete
End Sub

Is there a way to delete the entire row rather than just deleting
column A?
Thanks again!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=390384