Не сохраняется форматирование ячеек

[Андрей АВ]

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

Sub Текс_в_число()

ActiveWorkbook.Connections("Подключение1").Refresh

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
With ActiveSheet.Range("B2:B" & LastRow)
    arr = .Value
    .NumberFormat = "#,##0.0000"
    .Value = arr
End With

End Sub

Пример во вложении.

[Андрей АВ]

Сложная задача?

[Step_UA]

В свойствах подключения снимите флажок "фоновое обновление"

[Андрей АВ]

Сообщение от Step_UA

В свойствах подключения снимите флажок "фоновое обновление"

Ух ты, как просто

Благодарю, долгих вам лет