R/T 438 - Why?

G

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 !!
 
G

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro Not Running 2
Wrong result is coming while adding tow figures 4
type mismatch 1
This may seem rudundant... 2
Prior macro not working in new location after some alterations 1
Cell reference in Workbook_BeforeSave macro 2
How do I make an X appear in a cell by simply double clicking it? 3
Trying to run excel vba code when cell value changes from empty to entered value. 1

Top