如何修复Invalid Next控件变量参考

Question

我正在尝试构建一个摘要工作表，该工作表将来自标准化工作表的源数据提取到单独工作簿中的一个合并页面中。我是VBA的新手，所以我从网络上搜集了一些资料，并在自己中添加了一些内容。现在的问题是，在“下一个工作簿”点的代码底部附近出现“无效的下一个控制变量”错误。

Sub ConslidateWorkbooks()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Dim Workbook As Workbook
Dim rng As Range
rng = ("a1:a10")
Application.ScreenUpdating = False
Filename = "C:\Users\Patrick\Desktop\Consolidating Macro"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
 Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
 For Each rng In ActiveWorkbook.Worksheet("Update")
 rng.Copy
 Workbook("Testing").Select
 Sheets("Tracker").Select
 Selection.Offset(0, 1).Select
 rng.Paste
 Next Workbook
 Workbooks(Filename).Close
 Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub

我尝试引用工作表和工作簿，但似乎没有任何效果。有人知道如何解决此错误吗？我已经看了一段时间了，找不到循环中引用下一个工作簿的另一种方法。任何帮助深表感谢！