Target.value

[habets]

hi,
I tried to create automatic a new row under the target value but there is a error on the red marked tekst. I tried several thinks, like: > 0 or = "". But the problem stay.

What I'm doing wrong?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value <> "" Then
Rows(Target.Row + 1).EntireRow.Insert

End If
End Sub

[p45cal]

You may want to do something like:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub 'also aborts if more than one cell being changed at a time.
If Target.Value <> "" Then
Application.EnableEvents = False 'needed to stop your original error.
Rows(Target.Row + 1).EntireRow.Insert
Application.EnableEvents = True 'reinstate.
End If
End Sub

[SamT]

I like P45cal's method, with one little addition

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Or Target.Cells.Count > 1 Or Target = "" Then Exit Sub
Application.EnableEvents = False 'needed to stop your original error.

'Target.Row does not indicate which sheet. Target.Offset does

'Use
'Sh.Rows(Target.Row + 1).EntireRow.Insert
'Or
Target.Offset(1).EntireRow.Insert

Application.EnableEvents = True 'reinstate.
End Sub



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column > 1 Or Target.Cells.Count > 1 Or Target = "" Then Exit Sub
Application.EnableEvents = False 'needed to stop your original error.
Target.Offset(1).EntireRow.Insert
Application.EnableEvents = True 'reinstate.
End Sub