Оптимизировать сортировку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Оптимизировать сортировку (Макросы/Sub)

Сергей13

Дата: Среда, 15.05.2019, 00:32 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!
Ребята через запись макроса создаю простую сортировку (АЯ).
[vba]

Код

Sub Sort1()
    ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort.SortFields.Add _
        Key:=Range("Таблица1[[#Headers],[Столбец1]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").ListObjects("Таблица1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[/vba]
Пытаюсь ее оптимизировать под найденный код.
[vba]

Код

Sub Sort2()
ActiveWorkbook.Worksheets("Лист1").Range("Таблица1[[#Headers]]").Sort [a1], xlAscending, , , , , , xlYes
End Sub

[/vba]
Если при первом варианте действие выполняется независимо от активности листа, то второй вариант срабатывает только на активном листе, при не активности листа выдается ошибка о недопустимой ссылки для сортировки.
Как данную сортировку применить для неактивного листа?