Сртировка по колонке в Exccel

[vovsla]

В Excel записал вот такой вот макрос который делает сортировку по колонке

    ActiveWorkbook.Worksheets("Ëèñò1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Подскажите пожалуйста как сделать чтобы этот код работал в автоите

 

[madmasles]

Vovsla,
Посмотрите здесь.

 

[vovsla]

Делал сортировку по этому примеру

$oExcel.Application.Worksheets("Лист1").Range("A1:A1").Sort($oExcel.Application.Worksheets("Лист1").Range("A1"),1, $oExcel.Application.Worksheets("Лист1").Range("A1"),Default,2,$oExcel.Application.Worksheets("Лист1").Range("A1"),1)

сортирует, но значок сортировки в фильтре не высвечивается и под сортировку попадает заголовок