Try this:
Sub Unbroken()
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Copy
ActiveCell.PasteSpecial
End Su
--
CaptainQuattr
-----------------------------------------------------------------------
CaptainQuattro's Profile:
http://www.excelforum.com/member.php...fo&userid=3276
View this thread:
http://www.excelforum.com/showthread.php?threadid=54494