Need Macro to pull data from list and create new worksheets for each result

I am trying to modify a macro I have that will help me use the macro below to help me go through a list of players to pull all the data tables mentioned below into one worksheet per player and then move on to the next player with their stats on the next worksheet. Right now I am going through each player one by one with the macro below and takes a lot of time and trying to see if there is a quicker solution.

I have attached the list of players in the Excel file and then attached a notepad file of the query file that I used in Excel. Below is the code that I am currently using.

[CODE]Sub H()
'
' H Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;C:\Users\mlaporte\Dropbox\NFL\Web Query\H.iqy", Destination:=Range( _
"$A$1"))
.Name = "H"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = _
"""defense"",""games_played"",""kicking"",""returns"",""passing"",""receiving_and_rushing"",""rushing_and_receiving"",""scoring"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub [/CODE]

Any help on how to speed up this process would be greatly appreciated. Thank you in advance.

AttachmentSize
H List.xlsx28.54 KB
H IQY File.txt367 bytes