Posted to microsoft.public.excel.programming
|
|
Macro issue
Thankyou Bob.
"Bob Phillips" wrote:
Sub InsertRows()
Dim i As Long
Application.ScreenUpdating = True
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
Rows(i).Insert
Rows(i + 1).Copy Cells(i, "A")
Next i
Application.ScreenUpdating = True
End Sub
--
HTH
Bob Phillips
(remove xxx from email address if mailing direct)
"Steved" wrote in message
...
Thankyou CaptainQuattro
"CaptainQuattro" wrote:
Try this:
Sub Unbroken()
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Copy
ActiveCell.PasteSpecial
End Sub
--
CaptainQuattro
------------------------------------------------------------------------
CaptainQuattro's Profile:
http://www.excelforum.com/member.php...o&userid=32763
View this thread:
http://www.excelforum.com/showthread...hreadid=544940
|