Whats wrong with this code?

[CHC Consulting LLC]

This code is hanging up at the section in bold.... any thoughts?


Private Sub worksheet_change(ByVal target As Range)

'Fills in Trouble Sheet worksheet when a date is populated in TROUBLE column
If target.Column = 29 Then
Thisrow = target.Row
If target.Value <> "" Then

Worksheets("DATA").Activate
Cells(ActiveCell.Row, 3).Copy
Worksheets("Trouble Sheet").Activate
Range("A1048576").End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
:=False, Transpose:=False

End If
End If


End Sub

 

[AlphaFrog]

Try this instead...
Range("A" & Rows.Count).End(xlUp).Select

 

[xenou]

Is the event code in the Data worksheet or in the Trouble Sheet worksheet?

 

[Fazza]

maybe add application.enableevents = false near the top of the code

and application.enableevent = true near the bottom