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

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


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MJKelly" wrote in message
...
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

see if this works for you:

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


"MJKelly" wrote:

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

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



On Oct 15, 8:18*am, MJKelly wrote:
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