Insert blank row for every other row on worksheet

[bradfordsmiths]

On my worksheet I have several rows with data in them. My boss needs me to insert a blank row in between each of the rows. Is there a simple & fast way to do this besides manually inserting each row. I am using Excel 2007.

 

[markf5998]

I'm new to writing code so I'm sure there is a cleaner way to do it, but this works for me...it runs through 10 rows and puts a blank in between each.

Sub Insert_Rows()
Dim n As Integer
For n = 1 To 10 'change 10 to however many times you want it to run
Selection.EntireRow.Insert
ActiveCell.Offset(2).Select
Next n
End Sub

 

[bradfordsmiths]

Thank you so much...I will try this.

 

[bradfordsmiths]

Thanks again this did work. I just changed the number 10 to the number of rows I needed & it worked great.