excel的宏vba编程把工作薄作为新工作表文件重新保存，老是提示我下标越界

保存在个人宏工作表里，处理默认的空白工作薄，有三个表sheet1sheet2sheet3
现在只能保存sheet1
求指导
Sub Macro2()
'
' Macro2 Macro
' 宏由 微软用户 录制，时间: 2016-6-28
'

'
For i = 1 To 3
Dim str As String
Sheets(i).Select
Sheets(i).Move
str = "D:\我的文档\" & Sheets(i).Name & ".xls"
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows(Sheets(i).Name & ".xls").Activate
ActiveWorkbook.Close
Next i
End Sub