Sergey В.

Можно конечно. Пишете запрос в текстовый файл. После запуска макроса - считываете файл, извлекаете текст и используете для запроса.

PS Что-то подсказывает мне, что Вам уже нужно искать другой инструмент, а не использовать "костыли"

Используйте Application.DisplayAlerts
В начале макроса:
Application.DisplayAlerts = wdAlertsNone
в конце не забудьте обратно включить:
Application.DisplayAlerts = wdAlertsAll

Программировать можно, но будут определённые ограничения, связанные с ОС. Вы не сможете использовать сторонние dll, работа с файловой системой там построена по-другому, если макрос использует какие-то системные параметры, то это скорее всего будет невозможно, отправка запросов и т.д. Короче если VBA проект работает только с файлом Office, то проблем не будет (но определённые ньюансы всё равно будут).

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

Попробуйте в FileName прописать полный путь до tor.exe
Также попробуйте запуск с указанными аргументами через интерфейс командной строки.

Таймеры на VBA - плохая идея.
В целом, есть три пути:
1. Создание таймера на WinAPI SetTimer
2. Ожидание завершения интервала в цикле
3. Использование функции Sleep (также из WinAPI)

Если логика позволяет - не используйте таймеры, т.к. это может непредсказуемо сказаться на UI

Понять бы ещё что за ошибка возникает
Проверьте на предмет одновременного доступа к Excel файлу. Если он уже открыт, то повторно его можно открыть только в readonly режиме (это прописывается параметром при открытии).

При обращении к значению в Cells всегда указывайте свойство Value. Так:

If WBook.Cells(q, 7).Value = ArrayPhoneAll(i) Then

Также имейте в виду, что одно из сравниваемых значений может быть Nothing

Dim i as Integer, iMax as Integer, N as Integer, iCnt1 as integer, iCnt2 as integer
Dim a
a = Array(10, 9, 8, 7 ,6, 5, 4, 3, 2, 10)

For i = LBound(a) to UBound(a) ' Ищем максимальное значение
If iMax < a(i) then iMax = a(i)
Next

iMax = iMax / 2
N = 0 ' Кол-во чётных элементов
iCnt1 = 0' Кол-во меньше х0
iCnt2 = 0 ' Кол-во меньше iMax / 2
For i = LBound(a) to UBound(a) ' Проверяем условия
If i Mod 2 = 0 then N=N+1
If a(i) If a(i) Next

Msgbox "Кол-во чётных элементов " & N & vbcrlf & _
"Кол-во меньше х0 " & iCnt1 & vbcrlf & _
"Кол-во меньше iMax / 2 " & iCnt2

При загрузке Excel, загружаются и подключенные надстройки. В Вашем случае, если надстройка недоступна (не работает сеть, файл уже используется и т.д.), то Excel отключит надстройку и включить её можно будет только вручную.
Варианты решения:
1. Копирование скриптом актуальной версии надстройки в локальную папку надстроек Excel;
2. При открытии Excel - fвтозапуск макроса, подключающего надстройку из сетевой папки;
3. Использование других видов надстроек, где сетевое развёртывание уже есть "в комплекте". Например VSTO.

1. Лучше в коде загружать картинку один раз, а не 16ть.

Dim oBitmap As Bitmap = New Bitmap("Фигуры\" & i & ".jpg")

2. Перед присвоением кнопке картинки, неплохо было бы проверить - есть ли такая кнопка. Поэтому:

Dim oButton as Button

For i As Integer = 0 To 16
oButton = Me.Controls("Button" & (i))
If IsNothing(oButton) Then Continue For ' Такой кнопки нет
oButton.BackgroundImage = oBitmap
next

У вас скорее всего row_abc_end - nothing.
Приучайтесь использовать Option Explicit (плюс строгая типизация) и тогда многие ошибки будут выявляться на более ранних стадиях обработки.

Перебираете элементы массива через цикл с шагом:

For i = 0 to Ubound(array) Step 2

Т.е парами. И в цикле меняете значения у элементов:

array(i)
array(i+1)

с помощью временной переменной, как в Вашем примере.
Желательно перед этим проверить, что массив имеет четное количество элементов.