запуск запросов по очереди

[Iskin]

Здравствуйте!
У меня в книге есть 2 запроса. 1 запрос на главном листе "1", 2-ой на листе "2". Оба запроса обращаются к файлам EXСL, которые лежат в папке "загрузки". Запускаю через

ActiveWorkbook.RefreshAll

, далее идут другие команды. Всё работает, но при этом активным остается лист "2". А хотелось бы чтобы курсор оставался на главном листе, где вся нужная информация. И я так подозреваю что надо запускать запросы поочередно. Подскажите код пожалуйста

[IgorGO]

подозреваю что нужно написать:
ActiveWorkbook.RefreshAll
worksheets(1).activate

[Iskin]

IgorGO, Пытался, не помогло.

[Aleksandr H.]

В макросах небось .Select и .Selection понаписывали?

[Iskin]

Сообщение от Aleksandr H.

В макросах небось .Select и .Selection понаписывали?

Был Select, отключил, все равно не помогло.
Хорошо, абстрагируемся) Какой нужен код, что бы после отработки всех команд на экране появился нужный лист?

[IgorGO]

worksheets("НужныйЛист").activate

[Iskin]

вот код

Sub Макрос1()
worksheets("к оплате").activate ' тут поставил
' проверка наличия нужных файлов
Set FSO = CreateObject("Scripting.FileSystemObject")
File = "C:\Users\user\Downloads\список ДТ.xlsx"
MsgBox "файл " & File & IIf(Dir(File) = "", " отсутствует!", " найден.")
File = "C:\Users\user\Downloads\DataSetAccountBalance.xlsx"
MsgBox "файл " & File & IIf(Dir(File) = "", " отсутствует!", " найден.")
ActiveWorkbook.RefreshAll ' обновление всех запросов
Worksheets("к оплате").Activate ' тут поставил
' настройка ширины столбцов
         Dim col As Range
   For Each col In Columns("C:E")
     col.AutoFit ' автоширина
  Application.ScreenUpdating = True ' Возвращаем режим обновления экрана при изменении

 Range("g1").FormulaR1C1 = Date 'в яч ставит дату
 
 Dim lr As Long
   
    'Поиск последней строки по столбцу С.
      ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "C").End(xlUp).Row
   
    ' пропустить 4 строк и вставить надпись в колонку D
    Cells(lr + 4, "D").Value = "К оплате _________________"
    
 Next
worksheets("к оплате").activate ' и тут поставил
End Sub

Всё равно процесс останавливается на листе 2

[Aleksandr H.]

worksheets("к оплате").[A1].Select
End Sub

[Iskin]

Не помогло. Может в настройках оффиса какой-то глюк. В принципе не критично мышкой нажать на нужный лист... Хотелось понять почему. Cпасибо всем.

[Aleksandr H.]

Может и глюк а может и вы не все описали

У меня такой фрагмент перекидывает на 1 лист с 4-го

......
    Sheets(1).Activate
    Sheets(1).[A1].Select
End Sub