Function to copy A predetermined range

[Guest]

Hello,

I would like to create a function, wich can insert a range into a woorksheet,

CopyRange(sourceRange, destination)

But I don's know how, any help ?

 

[paul.robinson]

Hi
One line will do it

Worksheets("mysheet1").Range("A1:B10").Copy
Destination:=Worksheets("mysheet2").Range("A1")

Or as a sub
Sub CopyIt(SourceRange as Range, DestinationRange as Range)
SourceRange.Copy Destination:=DestinationRange
End Sub

which you would use as

Set Range1 = Worksheets("mysheet1").Range("A1:B10")
Set Range2 = Worksheets("mysheet2").Range("A1")

CopyIt Range1, Range2

Make sure destinationRange is one cell though.
regards
Paul