Allen

Try

Option Explicit

Sub CopyRows()
If ActiveCell.Row 60 Then Exit Sub
Sheets("sheet1").Rows(ActiveCell.Row & ":60").Copy
ActiveSheet.Paste
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=537994