Hi,

here is another suggestion

Sub MyInsert()
With Selection
.EntireRow.Insert
.Select
End With
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


" VLOOKUP fORMULA" wrote:

Any one please help me.......?

After inserting row how can I go back to the row I selected for inserting,
instead for going to A1

Sub insertrowatselection()
Rows(ActiveCell.Row).Insert
Range("A1").Select