Oh thought non Xlms version would still have code, just not work but no, no Vba code at all.

My comp won't let me save as 2003 version crashes and gets Microsoft error report

Basically code for web pull is below

1st macro Calls WebPull

Sub WebPull()


With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://ebet.tab.co.nz/odds/" & Sheets("race").Range("ac7").Value & Sheets("race").Range("ab7").Value & Sheets("race").Range("aa7").Value & ".html", Destination:=Range("$w$13"))
.Name = False
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 1
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With




Call Macro152 'Transfers record sheet



End Sub

What i would like if poss is in 1st entry of this thread

ideas = Loops x1 / on error / Application wait 1 min / Loop again / On error Application wait 1 min / continue

Until Results appear then as normal move onto next Macro.


For anyone who knows loops and Application wait, surely it can't be that tricky ? but ?

Ok Mate see how ya go

Cheers

Mike