Hi,
>
> Im trying to write code so that if i
1) Insert a value in col A a row is inserted below
2) If i then go back and delete this value the row below is deleted
3) If I go back and change the value the no of rows remain

With the code below rows are inserted in all three cases,
many thanks for help



> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.EnableEvents = False
> On Error GoTo ws_exit:
> With Target
> If .Column = 1 Then
> If .Cells.Count = 1 Then
> .Offset(1).EntireRow.Insert xlShiftDown
> End If
> End If
> End With
>
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
>