copy then paste to multiple ranges

[MJKelly]

Hi,

I use the code below to copy formulas to additional cells. However, i
want to paste the copied formulas into multiple ranges instead of copy/
paste copy/paste etc. Can this be done?

Range("A1").copy Range("B1:B10")

I thought something like this but it doesnt work...

Range("A1").copy Range("B1:B10"), Range("F12:F45")


Any ideas?

Kind regards,
Matt

 

[Don Guillett]

try
Range("A1").copy Range("B1:B10,F12:F45")

 

[john]

see if this works for you:

myformula = Range("A1").Formula
Range("B1:B10,F12:F45").Formula = myformula

 

[Susan]

this probably isn't what you want, but............. once you have it
copied, you can paste it multiple times........
'=====================
Sub multiple_paste()

ActiveSheet.Range("b2").Copy

ActiveSheet.Range("b4").PasteSpecial xlPasteAll
ActiveSheet.Range("b8").PasteSpecial xlPasteAll
ActiveSheet.Range("b10").PasteSpecial xlPasteAll

Application.CutCopyMode = False

End Sub
'======================
hope it helps!

susan