Single Copy and Multiple Paste - VBA

[monirg]

Hi;
Would appreciate your help on this (simple) question!
Having selected and copied a range, how can I paste the selection to multiple individual cells using a single VBA statement ??
It would look much better than:
----------------------------------------------
Selection.Copy
.........................................................
...Range("L20").Select
...ActiveSheet.Paste
...Range("M20").Select
...ActiveSheet.Paste
...Range("N20").Select
...ActiveSheet.Paste
........................................................
.....(repeat 10 or 15 times)..................
.......................................................

Thank you.

 

[Norie]

You could try this:

Selection.Copy Range("L20:N20")

This might cause problems depending on the size of the source/destination.

Perhaps you could explain further exactly what you are trying to do?

 

[monirg]

Norie;

Thanks for your suggestion. Sorry my example wasn't clear. The detination cells are non-contiguous, say, L20, N20, P20, T20, etc.

I got the idea! I suppose I can use:
.............Selection.Copy Range("L20, N20, P20, T20, ...")

The size of the source range is about 20 cells, and it represents the initial values before an algoritm kicks in! Will try very soon and let you know.

(Do you realy live in Stirling, Scotland ? I did live in Glasgow sometime ago!)

Regards.

 

[monirg]

Norie;

It did work. Thanks again.