It worked for me without Activecell

MyWBRBS.Range("I65536").End(xlUp).Copy _
Destination:=MyWBAccRep.Sheets("Volumes").Cells.Fi nd("latest").Offset(7, 0)


--
__________________________________
HTH

Bob

"Simon" wrote in message
...
MyWBRBS.Range("I65536").End(xlUp).Copy
Destination:=MyWBAccRep.Sheets("Volumes").Cells.Fi nd("latest").ActiveCell.Offset(7,
0)

What is wrong with the above? It says Obeject doesn't support this
property or method.

I tried it without .ActiveCell but that doesn’t seem to be the issue.
I’ve have thought that after Destination:= You would need to specify
the workbook and sheet name to state where the data will be copied
to. I thought stating it where it is would be acceptable for the Find
method.



I have already defined (Dim) and Set and Opened the workbooks MyWBRBS
and MyWBAccRep. MyWBRBS only has one sheet, hence no requirement to
declare which sheet you are selecting from.