This will work for any range selected

Option Explicit
Sub insertblankrowsinselection()
Dim fr As Long
Dim lr As Long
Dim i As Long

With Selection
Dim x As Long, y As Long
fr = .Rows(1).Row
lr = .Rows.Count + fr - 1
For i = lr To fr Step -1
Rows(i + 1).Insert
Next i
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"PL" wrote in message
...
Hi

I have 10 consecutive rows of data. I wish to insert a blank between each
of
these 10 rows, is there a formula or method I can use to do this quickly?
I
don't wish to manually insert the rows.

Thanks.