Помогите с написанием макроса в экселе, хелп. - VB

Формулировка задачи:

Помогите с написанием макроса в экселе, хелп.
Есть вот такой макрос:
Sub mozg1()
Range("A1").Select
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.aaa/aaa.shtml?1189711", Destination:=Range("A1"))
.Name = "aaa.shtml?1189711"
.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 = "46"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Этот макрос осуществляет запрос, по заданному адресу (http://www.aaa/aaa.shtml?1189711) и берет данные из 46-ой таблицы и вставляет их в новый лист экселя.
А нужно сделать следующим образом, чтоб заданный адрес брался из листа 5 например(из ячейки А1) потом цикл (запрос+вставка данных на новый лист) и заново, но адрес уже берется из ячейки А2, короче чтоб адреса запросов брались поочередно с листа 5 из первого столбца. Нужно цикл сделать и переменные описать, борюсь 2-ой день, но никак, ПОМОГИТЕ ! аська 338160622, мыло 5615(собака)inbox.ru. нахожу похожие примеры но что-то никак. Заранее спасибо всем откликнувшимся.

Решение задачи: «Помогите с написанием макроса в экселе, хелп.»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> test()
<font color="blue">Dim</font> my_url <font color="blue">As</font> Range
    <font color="blue">For</font> <font color="blue">Each</font> my_url <font color="blue">In</font> Range(<font color="teal">"A2:А4"</font>)
        <font color="blue">With</font> ActiveSheet.QueryTables.Add(Connection:=<font color="teal">"URL;"</font> + my_url, Destination:=Range(<font color="teal">"A1"</font>))

        <font color="blue">End</font> <font color="blue">With</font>
    <font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        