Hi

Try this macro

Sub InsertRows()
Dim r As Integer
Dim TargetRange As Range
Set TargetRange = Range("A1", Range("A1").End(xlDown))
rCount = TargetRange.Rows.Count
r = 1
For r = rCount To 2 Step -1
Rows(r).Insert
Next
End Sub

Regards,

Per

"MarshaMarsha" skrev i meddelelsen
...
I need to add a blank row in between each row and the length of the
document
is seven pages; so, is there a way I can do this without having to add
them
individually?? If you can help me with this........thanks for saving my
sanity!!!