Hente ekstern data fra flere websider på en gang

Halløjsa!

Hvis jeg gerne vil hentet data ned fra feks.
www.en-webside.dk/id=1
www.en-webside.dk/id=2
www.en-webside.dk/id=3
osv. ville det være rart hvis der fandtes en kommando i vba der kunne fortælle den at den skal hente alt i mellem id=1 til id=10 eller hvad man nu angav.

Det her er en makro jeg har lavet ved hjælp af afspilning:

Sub Makro3()
'
' Makro3 Makro
' Makro indspillet 17-01-2006 af HamSelv
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;www.en-webside.dk/id=1", _
        Destination:=Range("A1"))
        .Name = "id1"
        .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 = "24,26"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


Hvordan får jeg den til at hente flere sidder på engang og gerne gemme den i hver sin workbook. Man skal kunne angive fra id og til id.

Jeg håber det her giver mening...

/Face