Проблема. Один раз срабатывает.
Затем, когда перехожу к другой записи - появляется ошибка 91

Это скорее всего из-за того, что сортировка не закрывает Excel.


Dim ObjExc As Excel.Application
Set ObjExc = New Excel.Application

Dim a As Integer
Dim q as Integer
ObjExc.SheetsInNewWorkbook = 1
ObjExc.Workbooks.Open ("business\tovary.xls")
ObjExc.ActiveSheet.Cells(q, 1).Value = Text2.Text
ObjExc.ActiveSheet.Cells(q, 2).Value = Text3.Text
ObjExc.ActiveSheet.Cells(q, 3).Value = Text4.Text
ObjExc.ActiveSheet.Cells(q, 4).Value = Text5.Text
ActiveSheet.Range(ActiveSheet.UsedRange.Address).Sort Key1:=ActiveSheet.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


ObjExc.ActiveWorkbook.Close True



Подскажите пожалуста, как закрыть Excel c после ActiveSheet.Range()