RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").Offset(7, 0)
It says Object or Method is not supported. I tried this as well
RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").ActiveCell.Offset(7,
0)
Bob Phillips - 15 Aug 2008 16:17 GMT
RBS.Sheets("RBS").Range("I4").End(xlDown).Copy _
Destination:=AccRep.Sheets("Volumes").Cells.Find("latest").Offset(7, 0)

Signature
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
> RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
> Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").Offset(7, 0)
[quoted text clipped - 4 lines]
> Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").ActiveCell.Offset(7,
> 0)
Gord Dibben - 15 Aug 2008 17:05 GMT
Correct the spelling error and try again.
Gord Dibben MS Excel MVP
>RBS.Sheets("RBS").Range("I4").End(xlDown).Copy
>Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").Offset(7, 0)
[quoted text clipped - 4 lines]
>Destintion:=AccRep.Sheets("Volumes").Cells.Find("latest").ActiveCell.Offset(7,
>0)
Simon - 15 Aug 2008 17:30 GMT
> Correct the spelling error and try again.
>
[quoted text clipped - 10 lines]
>
> - Show quoted text -
Hi Gord,
I'd corrected the spelling (only typo'd on that partuicular example).
Still an issue though.
Gord Dibben - 15 Aug 2008 19:10 GMT
Did you try Bob's version?
Gord
>> Correct the spelling error and try again.
>>
[quoted text clipped - 16 lines]
>
>Still an issue though.
Bob Phillips - 16 Aug 2008 10:05 GMT
It certainly worked in my tests.

Signature
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
> Did you try Bob's version?
>
[quoted text clipped - 24 lines]
>>
>>Still an issue though.
Simon - 18 Aug 2008 12:34 GMT
> Did you try Bob's version?
>
[quoted text clipped - 22 lines]
>
> - Show quoted text -
Thanks Gord, works fine :-D