QueryTables.Connection В случае тайм-аута ссылки, Exit Sub

Question

Я пытаюсь очистить данные с веб-ссылки локального сервера, используя QueryTables, я повторяю функцию каждую минуту, чтобы отслеживать данные по этой ссылке.Тем не мение.Иногда ссылка отключается на 1-2 минуты, в это время, если Excel попытался извлечь данные, она зависнет навсегда.Можно ли в любом случае поставить условие IF для Exit Sub в случае, если ссылка не отвечает?

вот мой код:

Sheets("Sheet1").Cells.Clear
Sheets("Sheet1").Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;https://linkylink.com", Destination:= _
     Range("$A$1"))
    .Name = "linkylink"
    .WebFormatting = xlNone
     .WebSelectionType = xlSpecifiedTables
     .WebTables = "1"
    .Refresh BackgroundQuery:=True
End With