I assumed A2 was for example - you're right... Thanks.
--
Rob van Gelder -
http://www.vangelder.co.nz/excel
"Bob Phillips" wrote in message
...
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" wrote in message
...
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
--
Rob van Gelder - http://www.vangelder.co.nz/excel
"teresa" wrote in message
...
I need code for the following:
If I enter a value in a2 , a row is inserted below
Thanks for any assistance