VBA сортировка строк без открытия страниц

Question

У меня проблема с кодом сортировки.Код выполняется на разных страницах в одной книге. Сценарий выдает ошибку, если я пытаюсь выполнить сортировку, не открывая страницу в первую очередь.Я бы хотел отсортировать, не открывая страницы.Ниже приведен один пример кода для одного листа:

'Declaration
Dim lastRow As Integer
Dim lastusedcolomb As Integer
'Connection
'compare connection Import
Debug.Print "Connections_Import"
lastusedrow = ActiveWorkbook.Sheets("CompareConnections").Range("A4").End(xlDown).row
lastusedcolomb = ActiveWorkbook.Sheets("CompareConnections").Range("A1").End(xlToRight).Column
numberofitems = lastusedrow - 3
Debug.Print numberofitems
ActiveWorkbook.Sheets("CompareConnections").Range("A4:D" & lastusedrow).Sort key1:=Range("A:D"), Order1:=xlAscending, Header:=xlNo, _
orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Answer 1

Вот ваша проблема key1:=Range("A:D") - Измените ее на key1:=Sheets("CompareConnections").Range("A:D")