QueryTable

Добрый вечер, столкнулся с необходимостью импорта данных с веб'а.
Нашел как использовать QueryTable, что бы достать содержимое web-страницы.

Но никак не могу найти как проинициализировать QueryTable на исполнение с выбором источника данных из веб. Как это происходит в экселе при:
Данные -> Импорт внешних данных -> создать веб-запрос
Data > Import External Data > New Web Query
Т.е. источник у меня не постоянный и необходимо пользователю дать его выбирать и потом обработывать данные.

Если записать макрос по этим действиям то получим
With ActiveSheet.QueryTables.Add(Connection:="URL;http://braindumps.com.ua", _
Destination:=Range("A1"))
.Name = "braindumps.com.ua"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


Где .WebTables = "8" это выбранная таблица данных

Вот интересует как запустить New Web Query для инициализации QueryTables?