R/T 438 - Why?

[Guest]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!

 

[Guest]

what are you trying to do?
the line is not a command

 

[Guest]

trying to paste the copied range..

what are you trying to do?
the line is not a command

 

[Guest]

Worksheets("Sheet4").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, 1).Select
ActiveSheet.Paste

will paste below the last cell in column a