Thanks works great

"John Bundy" wrote:

This should do you

Sub main()
Dim myRow As Long
Dim lastCell As Long
myRow = 1 'first row to start on
lastCell = Cells(Rows.Count, "A").End(xlUp).Row

For i = lastCell To myRow Step -1
Cells(i, 1).Select
Selection.EntireRow.Insert Shift:=xlDown
Next

End Sub


--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"nazzoli" wrote in message
...
I have a file that I will open on a weekly basis. I want it to create a
macro that will insert a blank row in between all rows. The number of
rows
will vary weekly. Please help.