For i = Cells(ROws.Count,"A").End(xlUp).Row To 1 Step -1
Rows(i+1).Insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Geo" wrote in message
...
Is it possible to add a blank row under every existing row in excel
spreadsheet without have to right clike and add 2,000 times in 2,000 line
speadsheet?