a bit shorter without selections

Sub copyrow()
Rows(ActiveCell.Row).Copy Sheets("sheet12").Range("a14")
End Sub

--
Don Guillett
SalesAid Software

"theDude" wrote in
message ...

Hi Mike,

Sorry for the delay...I've been unavailable for a while. This should
work for you:

Code:
--------------------
ActiveCell.EntireRow.Copy
Sheets("RMA Details").Activate
Rows("34:34").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("B34").Select
--------------------

Hope this helps,
theDude


--
theDude
------------------------------------------------------------------------
theDude's Profile:
http://www.excelforum.com/member.php...o&userid=16550
View this thread: http://www.excelforum.com/showthread...hreadid=372633