try
Sub insertrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next i
End Sub


--
Don Guillett
SalesAid Software

"bayanbaru" wrote in message
...
I have a list of 50 names on each row. How do I add in a blank row in
between
each names?