Sorry, I didn't see that you wanted to delete the entire row.

Use this instead:

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

HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=390384