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