Как подставить в макрос данные из ячейки BG2?

Question

Sub Moduls() 
' 
' Moduls Макрос 
' 
 
' 
 With Selection.QueryTable 
 .Connection = _ 
 
 "URL;СЮДА НУЖНО ПОДСТАВИТЬ ДАННЫЕ ИЗ ЯЧЕЙКИ BG2" 
 
 .WebSelectionType = xlSpecifiedTables 
 .WebFormatting = xlWebFormattingNone 
 .WebTables = _ 
 "41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88" 
 .WebPreFormattedTextToColumns = True 
 .WebConsecutiveDelimitersAsOne = True 
 .WebSingleBlockTextImport = False 
 .WebDisableDateRecognition = False 
 .WebDisableRedirections = False 
 .Refresh BackgroundQuery:=False 
 End With 
 ActiveWindow.SmallScroll Down:=-15 
End Sub

Макрос нужен для создания WEB запроса с сайта, нужно чтобы макрос брал ссылку сайта из ячейки BG2!

Сам отвечу на вопрос! ) 
 
"URL;" & Range("BG2").Value

Vika · Accepted Answer

нет

Иван · Answer

попробуйте 
 
 .Cоnnectiоn = ActiveSheet.Cells(RowIndex, ColumnIndex).Value 
 'RowIndex = Номер строки сверху вниз, ColumnIndex = Номер колонки слева на право