I have broken up a spreadsheet into several sections. In
each section, I would like to enter code that would allow
the user, once to the last row of each section, to
automatically insert another row(s). I have attempted to
write the code (see below) for this, but there is one
problem. Once one row is entered, the new row that is
created does not allow for another row to be created, i.e.
if the code is referenced to row 3 and a new row is
inserted (row 4), once the user hits enter in row 4, a new
row cannot be created.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub

Jeff

maybe this would do it:

If Target.Row = 3 Then

I don't know how this would affect other "sections"

Regards

Trevor


"Jeff" wrote in message
...
I have broken up a spreadsheet into several sections. In
each section, I would like to enter code that would allow
the user, once to the last row of each section, to
automatically insert another row(s). I have attempted to
write the code (see below) for this, but there is one
problem. Once one row is entered, the new row that is
created does not allow for another row to be created, i.e.
if the code is referenced to row 3 and a new row is
inserted (row 4), once the user hits enter in row 4, a new
row cannot be created.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub

Trevor,
Thank you for your response, but I believe this would
allow row insertion for every row after 3, but would not
work for multiple sections (i.e. i do not want certain
rows after 3 to allow for insertion). Anyone else have a
solution.
-----Original Message-----
Jeff

maybe this would do it:

If Target.Row = 3 Then

I don't know how this would affect other "sections"

Regards

Trevor


"Jeff" wrote in
message
...
I have broken up a spreadsheet into several sections.
In
each section, I would like to enter code that would
allow
the user, once to the last row of each section, to
automatically insert another row(s). I have attempted
to
write the code (see below) for this, but there is one
problem. Once one row is entered, the new row that is
created does not allow for another row to be created,
i.e.
if the code is referenced to row 3 and a new row is
inserted (row 4), once the user hits enter in row 4, a
new
row cannot be created.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub


.

OK, give this a try:

Private Sub Worksheet_Change(ByVal Target As Range)
Static RowCounter As Long

If Target.Row = 3 + RowCounter Then
Rows(Target.Row + 1).EntireRow.Insert
RowCounter = RowCounter + 1
End If

End Sub

Regards

Trevor


wrote in message
...
Trevor,
Thank you for your response, but I believe this would
allow row insertion for every row after 3, but would not
work for multiple sections (i.e. i do not want certain
rows after 3 to allow for insertion). Anyone else have a
solution.
-----Original Message-----
Jeff

maybe this would do it:

If Target.Row = 3 Then

I don't know how this would affect other "sections"

Regards

Trevor


"Jeff" wrote in
message
...
I have broken up a spreadsheet into several sections.
In
each section, I would like to enter code that would
allow
the user, once to the last row of each section, to
automatically insert another row(s). I have attempted
to
write the code (see below) for this, but there is one
problem. Once one row is entered, the new row that is
created does not allow for another row to be created,
i.e.
if the code is referenced to row 3 and a new row is
inserted (row 4), once the user hits enter in row 4, a
new
row cannot be created.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then
Rows(Target.Row + 1).EntireRow.Insert
End If
End Sub


.