VB中出现实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败

我在excel中想把多个不同表中同一位置的数据复制到同一个表中
Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+a
'
Dim i%, s%, t$

s = 0
For i = 1 To 40
t = i + 4
Sheets(i).Select
ActiveWindow.LargeScroll ToRight:=1
Range("O6").Select
Selection.Copy
Sheets("Sheet1").Select
Range("Ct").Select （VB中出现实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败）
ActiveSheet.Paste
Sheets(i).Select
ActiveWindow.SmallScroll ToRight:=-3
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("Dt").Select
ActiveSheet.Paste
Next i
End Sub

在总表的B2单元格输入以下公式，然后向下填充公式
=INDIRECT("11111"&ROW(A100)&"!B3")

xlbook.saveas filename:="d:\地\" & range("c4") & "_" & range("c5") & "_" & range("c7") & ".xls" 这个改成： xlbook.saveas filename:="d:\地\" & xlbook.xlsheet.range("c4") & "_" & xlbook.xlsheet.range("c5") & "_" & xlbook.xlsheet.range("c7") & ".xls" 具体为什么，我也不太清楚，我上次也是遇到这样类似的情况，第一次运行正常，第二次就不行。修改完就好了。