Inserting a row when a value is entered

[Guest]

I need code for the following:

If I enter a value in a2 , a row is inserted below

Thanks for any assistance

 

[Rob van Gelder]

Use this sheet event code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Target.Offset(1).EntireRow.Insert xlShiftDown
End If
End Sub

 

[Bob Phillips]

You haven't tested A2 Rob.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$2" Then
.Offset(1).EntireRow.Insert xlShiftDown
End If
End With
End Sub

--

HTH

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

 

[Guest]

Thanks Bob - very helpful

You haven't tested A2 Rob.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$2" Then
.Offset(1).EntireRow.Insert xlShiftDown
End If
End With
End Sub

--

HTH

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

 

[Rob van Gelder]

I assumed A2 was for example - you're right... Thanks.