Run-time error '91'

[Ефим Петрович]

Уважаемые участники форума, обращаюсь к вам вот с какой проблемой. В VBA я - новичок. Потребовалось сделать обработку для файлов Excel, с целью автоматического сохранения книг в формат txt. В книгах есть большое количество листов, и, как следствие каждую книгу нужно было сохранять большое количество раз. В моем коде присутствует какая-то ошибка, которая проявляется при повторном выполнении кода, т.е. первый раз все проходит нормально, а когда указываю второй файл для обработки, выскакивает ошибка:
Run-time error '91'
Object variable or with block variable not set
в выделенной строке

Private Sub Сохранение_Click()
Dim Xls As Excel.Application
Dim Sh As Worksheet
Dim i As Long
Dim StrXls As String
Dim Quant As Long

With Application.CurrentProject
StrXls = File_String
Set Xls = New Excel.Application
Xls.Visible = True
Xls.Workbooks.Open (StrXls)
Quant = Len(StrXls)
Quant = Quant - 4
i = 0
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
Xls.ActiveSheet.SaveAs FileName:=Left(StrXls, Quant) & i, FileFormat:=xlTextWindows
i = i + 1
Next Sh
ActiveWorkbook.Close SaveChanges:=False
Xls.Quit
End With
End Sub

Буду очень признателен, если вы сможете мне помочь.

[Myhaylo]

For Each Sh In Xls.ActiveWorkbook.Worksheets
...
Xls.ActiveWorkbook.Close SaveChanges:=False