Hello,

I am looking for some help with Power Query. I have a workbook which i have been using for my Cricket teams fantasy cricket league. I used simple web query to get the information i needed from each players stats page and put into there own sheet. The URL changed each season and there are almost 100 players and thus 100 URLs. I used a simple macro to create a new query each season from a list of URLs I had on a sheet in the work book. However, Play-Cricket have changed the site and now a simple web query returns no results. I have successfully used Power Query to get the information from the site, but i cant find a way to automatically create each players own sheet from my list as i did before. I would rather lean how to achieve this so i dont have to manual do each player every season.

An example of a URL is: http://hitchin.play-cricket.com/webs...season/2496/72

The old macro i used was:

Sub PlayCricket()
'
' PlayCricket Macro
'

'

For i = 2 To 80
Worksheets("pc").Select
Worksheets("pc").Activate
mystr = "URL;http://hitchin.play-cricket.com/website/player_stats_for_season/2496/72"
mystr = Cells(i, 1)
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = i
With ActiveSheet.QueryTables.Add(Connection:=mystr, Destination:=Range("A1"))
'CommandType = 0
.Name = "ID"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next i
End Sub

Thank you for your time