Automatically Insert a New Row

[Q45]

How can I automatically insert a row directly underneath a cell that I type something in?
There are a couple hundred rows in the sheet but I need to add a new row directly underneath a cell that I just typed in, in the middle of the sheet.
Any suggestions?
This message was edited by Q45 on 2002-02-21 19:46

 

[NateO]

Q, maybe an event procedure like the following will work:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
activecell.offset(1,0).select
Selection.EntireRow.insert
End Sub

Put it in a sheet module, right click on sheet, select view code and paste it in there.

HTH, Nate
This message was edited by NateO on 2002-02-21 19:58