If the other works then no selections necessary

export.Sheets("Sheet1").Range("C4").Resize(Range(" F4").End(xlDown).Row,4).COPY

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Simon" wrote in message
...
HI everybody,

What is wrong with

export.Sheets("Sheet1").Range("C4").Resize(Range(" F4").End(xlDown).Row,
4).Select

Thanks

because

export.Activate
Range("C4").Resize(Range("F4").End(xlDown).Row, 4).Select
Selection.Copy
AllJobVolumes.Activate

works?!