VBA Sum Same Cell Across Multiple dynamic Worksheets (in name and number)

[waldir]

Hi,

I'm trying to use this code to sum the same cell across multiple worksheets in different ranges: ActiveCell.FormulaR1C1 = "=SUM('*'!D19)"
I have the following issue:
1) When I input the formula manually it works perfect but when I use VBA the cells throws the following error: #NAME?

I need to use the code above because the worksheets varies in number and names every time I run a different macro.
What am I missing?
Thanks,
WALDIR

This is the full macro:
[Code]
Sub SumSameCellAcrossMultipleSheets()
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Set r1 = Range("D19:BK29")
Set r2 = Range("D35:BK46")
Set r3 = Range("D52:BK61")

Sheets("Template").Select
Range("D19").Select
ActiveCell.FormulaR1C1 = "=SUM('*'!D19)"
Range("D19").Select
Selection.Copy

r1.Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
r2.Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
r3.Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
[Code//]

[TMS]

Try Formula instead of FormulaR1C1

[waldir]

That made the whole trick!

Thank you so much!

[TMS]

You're welcome. Thanks for the rep.


I learned something new too ... I've never seen that syntax before. Thanks.


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

[waldir]

Definitely TMS,

I'll mark the thread as solved.
In regards of the little start at the bottom, I clicked on it on your behalf yesterday.

Thank you!

[waldir]

Definitely TMS,

I'll mark the thread as solved.
In regards of the little start at the bottom, I clicked on it on your behalf yesterday.

Thank you!