An extra dot perhaps?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Simon" wrote in message
...
Current code:

MyWBSEL.Activate
Sheets("Elite").Select
Range("G4").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
MyWBAccRep.Activate
Cells.Find("latest").Select
ActiveCell.Offset(21, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Edited:

MyWBSEL.Sheets("Elite").Range("G4")..End(xlDown).C opy Destination:=
MyWBAccRep.Cells.Find("latest").Cell.Offset(21, 0)



The edited code crashes. Why? The workbooks are Dim'd and Set and
opened.