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 deletin
column A?
Thanks again
--
STEVE
-----------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...nfo&userid=187
View this thread:
http://www.excelforum.com/showthread.php?threadid=39038