edneco,
I looked at your file. But, sad to say I will not be able to help.
It runs ok until it get to this line.
Code:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.zerozero.pt/edition.php?id_edicao=69891&fase=70218&jornada_in=1", Destination:=Range( _
"$DO$13"))
.Name = "edition.php?id_edicao=69891&fase=70218&jornada_in=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "20"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
This line runs a long time.
It then goes to the next code and too it take a long time.
I'm not that versed working with the web.
Hopefully another member can pick up on this.