Hi Simon,

Try:
'=============
Public Sub Tester()
Dim rng As Range

Set rng = Selection
rng.Copy Destination:=Range("ResDownload")
End Sub
'<<=============

---
Regards,
Norman


wrote in message
oups.com...
Hi I want to paste all into an area.

The area is one cell called ResDownload.

I am using this code...

Application.Goto Reference:="ResDownload"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

If i just have one cell copied it works ok.

If however i have lots of cells copied from another sheet then i want
it to paste them all.

However, i get the error..

Runtime Error 1004
PasteSpecial of Range class failed.

Is there anyway i can get this working?

Thanks in advance!