Optimering af macro

Hej Eksperter

Har en macro, som jeg synes er blevet meget langsom. Den skal hente data fra en hjemmeside og smide det ind i excel. Før i tiden tog det ca. 10 sekunder at køre macroen - nu tager det ca. 1 minut og 30 sekunder - PER GANG!!

Jeg har copy+pastes selve table query'en ind nedenfor.

Vil i kigge igennem og se, om der er steder, hvor jeg skal slå noget til/fra for at den kører hurtigere?

*MACRO START*

        With ActiveSheet.QueryTables.Add(Connection:=conString, Destination:=Range("B2"))
            .Name = conName
            .FieldNames = False
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = False
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            '.WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            '.WebTables = """yfncsubtit"",8,10,11,13,15,17,19,21,23"
            .WebPreFormattedTextToColumns = False
            .WebConsecutiveDelimitersAsOne = False
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
             
        End With
 
*MACRO SLUT*


Mvh
Josvto