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

Есть вот такой макрос:
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. нахожу похожие примеры но что-то никак. Заранее спасибо всем откликнувшимся.

спасибо за ответ, но что то не получается, теперь текст такой
Sub zap()
'
' zap Ìàêðîñ
' Ìàêðîñ çàïèñàí 10.05.2007 (ZZz)
'

'

For Each my_url In Sheets(5).Range("a1:a" + CStr(Sheets(5).Range("A1").End(clUp).Row))


ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
my_url.Text, Destination:=Range("A1"))
.Name = "eshop.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
Next
End Sub

но пишет мол ошибка в строке с each....пишет subscript out of range..:-( как быть?

нет, он есть, на нем же в первой колонке данные, которые надо подставлять в запрос...Ж-(

поменял, не помогает Ж-( все без ошибок ставлю - фиг. Я вот еще думаю вот этот код аналогичный

,но он ругается на ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
my_url.Text, Destination:=Range("A1")) пишет что object requied, блин, ни как не получается. А иногда пишет что мол адрес не верный..Ж-(...а адреса в ячейках все нормальные...вот думаю может бейсик вставляет в запрос эти данные не в том формате....?

А если меняю

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
my_url.Text, Destination:=Range("A1"))

на

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;my_url.Text", Destination:=Range("A1"))

то пишет не верный адрес узла, проверьте его и повторите попытку.......адрес пробиваю все ок....как же быть, выручайте!

А можешь выложить полный текст...и у тебя какой эксел...у меня вообще не хочет пишет аут оф рэнж

У меня текст вот такой но пишет аут оф рендж
Sub makr2()
'
'

'
For Each my_url In Sheets(5).Range("a1:a" + CStr(Sheets(5).Range("A65536").End(xlUp).Row))
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" + my_url, Destination:=Range("A1"))
.Name = "eshop.shtml?1208611"
.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
Next
End Sub

?

А что означает вот эта часть "a1:a" + CStr(Sheets(5). ?может тут поломка?

По шагово
Sub test()
Dim my_url As Range
For Each my_url In Range("A2:À4")
With ActiveSheet.QueryTables.Add(Connection:="URL;" + my_url, Destination:=Range("A1"))

End With
Next
End Sub

пишет ошибку в этой строке For Each my_url In Range("A2:À4")
и пишет Method 'Range' of object '_Global' failed

.......................ёёёёёёёёёёёё заработало, круто, ну ты мозг реальный, честно скажу....Ж-)....а у маеня у же крыша поехала.......спасибо тебе, могу даже чем нить проставиться Ж-)...ну выручил, круто Ж-) спасибо Ж-)