Excel VBA 串刺し計算について

こんにちは。
エラーが出て前に進めないので、ご教示をいただければと思います。
やりたい事としては、４月、５月などのデータを串刺し計算できるVBAを作りたい（シート数はその時で変更します）
流れとしては、４月のシートを左から２番目にコピーして、該当のセルの値をクリアし、串刺し計算結果を表示したいと思っています。
自分なりに、以下にように書きましたが、記載の場所でエラーとなります。
内容：（実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです）

原因と対策をご教示いただければ幸いです。
よろしくお願いいたします。
※Excel2016使用

Sub 集計()

Dim mySum As String　
Dim r as Range

Worksheets(2).Copy after:=Worksheets(1)
ActiveSheet.Name = "集計"
Worksheets("集計").Range("B5:C7").ClearContents
Worksheets("集計").Range("B5:xC7").ClearContents

mySum = Worksheets(3).Name & ":" & _
Worksheets(Worksheets.Count).Name & "!"　
Worksheets(2).Activate

For Each r In Worksheets(2).Range("B5:C7")
r.Value = "=sum(" & mySum & r.Address(0, 0) & ")"　　←エラー

Next r

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/07/11 14:38

mySum = "'" & Worksheets(3).Name & ":" & _

Worksheets(Worksheets.Count).Name & "'!"

ではないかな？

'シート名1:シート名△'　と ' ' で囲う必要あり。

この回答へのお礼

めぐみん＿さま

ご教示いただきまして、ありがとうございました。
お陰様で無事に動くようになりました。

お礼日時：2020/07/11 15:41