Lave kæde til Internettet

prøv at se om du kan bruge denne.

Kør HentKurser først, derefter OpdaterKurser, hvergang du vil opdatere.

Den sætter det ind i fra A1 i det ark du er på, så gør det på et tomt ark.

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

Super det virker - smid et svar.

Måske kan du også hjælpe mig her: http://www.eksperten.dk/spm/790274

et svar ;-))