Opgehaalde internet tables in ander blad

[geep1980]

Ik ben voor mijn werk bezig met het maken van een grafiek.
Hiervoor moet ik gegevens van een website bij ons halen en die in excel importeren.
Dit lukt me alleen wil ik als ik in Sheet1 sta en ik deze macro uitvoer hij de opgehaalde tables in Sheet2 neerzet

Ik heb de volgende code

Sub Import()
'
' ImportMacro
'

'




With ActiveSheet.QueryTables.Add(Connection:= _
"URL;(vanwege informatie verwijderd)", _
Destination:=Range("$A$1"))
.Name = "config.cgi?type=hosts"
.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 = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
End Sub

 

[Wigi]

Destination:=Sheet2.Range("$A$1")

 

[geep1980]

was dat alles.
Dat ik daar zelf niet opgekomen ben zeg.

Erg bedankt

 

[geep1980]

iets te snel met mijn blije reactie.
Als ik Sheet2.Range("$A$1") neerzet dan zegt hij:

The destination range is not on the same worksheet that the query table in being created on

Komt dit doordat aan het begin staat ActiveSheet ??