Dim XL As Excel.Application
Dim ActiveWkb As Workbook
Dim cell As Range
 
        Set XL = CreateObject("Excel.Application")
        XL.Visible = True
 
        XL.Application.Workbooks.Add
        Set ActiveWkb = XL.Application.ActiveWorkbook
        ...
 
With ActiveWkb
 
For i = 1 To .Worksheets.count
                .Worksheets(i).Cells.AutoFilter
                .Worksheets(i).Cells.EntireColumn.AutoFit
                Set cell = .Worksheets(i).Range("A1:A10")
                cell.Select
                Selection.Sort Key1:=Range("A1:A10"), Order1:=xlAscending, _
                  Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
                  Orientation:=xlTopToBottom
Next i
 
End With