Добрый день!
Формирую следующий запрос для получения координат города Москва и не могу получить ответ.

Private Sub CommandButton1_Click()
Dim objHTTP As Object
Dim url, inn, txt, kapcha, uuu As String
Dim n, k As Long
Set objHTTP = CreateObject("MSXML2.XMLHTTP")

With objHTTP
url = "https://geocode-maps.yandex.ru/v1/?apikey=b5f75702-20a9-4ddd-826f-88af3d64409d&geocode=москва&format=json"
.Open "GET", url, False
.setRequestHeader "Content-Type", "application/json; charset=utf-8"
.setRequestHeader "user-agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/107.0.0.0 Safari/537.36 Edg/107.0.1418.56"
.Send

txt = .responsetext
Debug.Print txt

End With

End Sub

В ответ приходят пустые заголовки...((((
Проверял запрос через сайт Online API Tester - Free Powerful API Testing Tool | ConversionTab  там все норм. Ответ идет.

Может что-то связано с особенностью получения API ответа Json ??
Прошу помощи с решением этого вопроса.

Подскажите плизз
Есть код работающий по событию:

TextBox5_Change()
.......
End Sub

Как запустить этот код принудительно? из другого места программы при изменении TextBox5.Text

Форумчане добрый день!
Прошу хелпа. Суть вопроса следующая:
Написал код для запроса с сайта телефонных кодов сотовых операторов.

Sub telecod(cod As String)

Dim x, z, k, zz As Integer
Dim q, w, w1, w2, s, ss, sss, kod As String
Dim wq, qqq As String
Dim f As Boolean

q = Right(cod, 3)
Worksheets("900").Activate

   With ActiveSheet.QueryTables.Add(Connection:= _
       "URL;https://www.kody.su/mobile/" & q, Destination:=Range("$A$1"))
       
       .Name = "telecod"
       .FieldNames = True
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = True
       .RefreshOnFileOpen = False
       .BackgroundQuery = True
       .RefreshStyle = xlInsertDeleteCells
       .SavePassword = False
       .SaveData = True
       .AdjustColumnWidth = True
       .RefreshPeriod = 0
       .WebSelectionType = xlEntirePage
       .WebFormatting = xlWebFormattingNone
       .WebPreFormattedTextToColumns = True
       .WebConsecutiveDelimitersAsOne = True
       .WebSingleBlockTextImport = False
       .WebDisableDateRecognition = False
       .WebDisableRedirections = False
       .Refresh BackgroundQuery:=False
   End With
End Sub

Все работает, на лист выводит таблицу соответствия, НО при повторном запроса таблица размещается не на том же месте а со смещением вправо.
Как сделать так чтобы при следующем запросе таблица размещалась на том же месте а не убегала?
Скорее всего надо удалить существующую безвозвратно вместе с соединением но как?