Consolidateの範囲

Dim 範囲() As String
Dim パス As String
ReDim 範囲（cnt) As String

パス = "'" & ActiveWorkbook.Path & "\[" & ActiveWorkbook.Name & "]"

For i = 1 To cnt
範囲(i) =パス & Worksheets(i).Name & "'!" & _
Worksheets(i).Range("A1").CurrentRegion. _
Address(ReferenceStyle:=xlR1C1)
Next

With Worksheets("集計")
.Range("C2").Consolidate _
Sources:=範囲, _
Function:=xlSum, _
TopRow:=True, LeftColumn:=True, _
End With

集計シートにシート1からシート3までを串刺し集計
したいのですがどこをなおしらよいのか。
わかる方お願い致します。

No.1 回答者： めぐみん_ 回答日時： 2019/04/11 20:15

詳しい訳ではないですが。

参考
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

には、
－－－－
Sources

省略可能
バリアント型(Variant)の値を使用します。
－－－－

とありますので、
Dim 範囲() As String
この宣言する型を変更してみるとか？