Lave kæde til Internettet

Jeg har af kabbak fået nedenstående makro, der henter valutakurser på internettet og opdater dem.

Sub HentKurser()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.valutakurser.dk/Currency/default_e.aspx", Destination:=Range( _
        "A1"))
        .Name = "default_e"
        .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 = "32"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=-3
End Sub

Public Sub OpdaterKurser()
Range("A1").QueryTable.Refresh BackgroundQuery:=False
End Sub

Nu vil jeg gerne have lavet den om, så den kan hente aktiekurser med fondskoder.

Når jeg ændre URL-adressen får jeg ikke alle oplysningerne med over. Jeg bruger adressen http://www.euroinvestor.dk/Stock/StockSearch.aspx?Bogstav=S&Country=42

Denne adresse henter alle kurser for selskaber, Der starter med S - Se ...Bogstav=S

Der skal selvfølgelig hentes for hele alfabetet.

Bruger jeg http://www.euroinvestor.dk/Stock/StockSearch.aspx?Company=S&Country=42&Type=1 - Eneste ændring er Company=S i stedet for Bogstav=S, får jeg de oplysninger jeg skal have, men kun for de 100 første selskaber.
Håber I kan hjælpe mig!