VisualBasic VBA script stopt bei .Refresh BackgroundQuery:=False

[K1LL3R18]

Servus zusammen ich hab ein Problem mit einem Makro in Excel und weis nicht weiter -.-

es stoppt bei .Refresh BackgroundQuery:=False

wenn ich den befehl lösche geht das Makro mich würde aber interessieren was hinter dem befehl steckt und wo der fehler sein könnte!

Umgebung ist Office 2010 das Makro ist aber noch aus 2002 Zeiten

Sub sLoadQueries()
' Imports results of the defined SIRE queries from the "Queries" sheet.
' Multiple queries can be defined
' The data retrieved will be copies into "SYLK" sheet - each query one column
sourceSheet = cSheetQueries
targetSheet = cSheetSylk
vqCol = 1
vqID = 1 ' query_id

Set osSrc = Sheets(sourceSheet)
Set osTar = Sheets(targetSheet)
osTar.Cells.Delete
Do While osSrc.Cells(1 + vqID, vqCol) <> ""

vquery = osSrc.Cells(1 + vqID, vqCol).Text

i = 1
Do While osSrc.Cells(1, vqCol + i) <> ""

vquery = Replace(vquery, _
osSrc.Cells(1, vqCol + i), _
osSrc.Cells(1 + vqID, vqCol + i))

i = i + 1
Loop


' change output from HTML to SYLK
vquery = Replace(vquery, "RT=D", "RT=S")
' replace "! [ ]" with their URL encoded value
' vquery = Replace(vquery, "!", "%21")
' vquery = Replace(vquery, "[", "%5B")
' vquery = Replace(vquery, "]", "%5D")


Set oqt = osTar.QueryTables.Add( _
Connection:="URL;" & vquery, _
Destination:=osTar.Cells(1, vqID))

With oqt
.Name = "SIRQuery_" & vqID
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

vqID = vqID + 1
Loop
End Sub