Manju

Don's code works fine for me.

What didn't it do for you?


Gord Dibben MS Excel MVP

On 21 Aug 2006 19:12:21 -0700, "Manju" wrote:


Don Guillett wrote:
this will insert rows
Sub insertrows()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For i = lr To 2 Step -1
Rows(i).Insert
Next i
End Sub

OR, if you just need space,consider doubling the row height.
Sub makerowbigger()
lr = Cells(Rows.Count, "a").End(xlUp).Row
Rows("1:" & lr).RowHeight = 25
End Sub

--
Don Guillett
SalesAid Software



Sorry Sir, Your first code didn't work.