The Overround

Sub MVP_CyYoung_BRef()
'
' This Macro extracts the descriptive info of each specified awards year for Major League Baseball
'

'
On Error Resume Next
Dim awardyear As Integer
Dim sht As String
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
'Enter the most recent year and earliest year for which to extract information next to the respective
' assigned variables

awardyear = 2009
awardyearend = 2000
'Beginning Extraction Loop
For i = 0 To (awardyear - awardyearend)
 
'Create the new sheets named by the appropriate year

sht = Str(awardyear)
Worksheets.Add().Name = sht
Sheets(sht).Select
 
'Data extraction cheat
'The excel browser points to the awards page on <a href="http://Baseball-reference.com">Baseball-reference.com</a> and isolates the statistic tables

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;<a href="http://www.baseball-reference.com/awards/awards">http://www.baseball-reference.com/awards/awards</a>_" &amp; awardyear &amp; ".shtml", Destination _
        :=Range("$A$1"))
        .Name = "awards_" &amp; awardyear &amp; ".shtml"
        .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 = _
        """AL_MVP_voting"",""NL_MVP_voting"",""AL_Cy_Young_voting"",""NL_Cy_Young_voting"",""AL_Rookie_of_the_Year_voting"",""NL_Rookie_of_the_Year_voting"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
 
'End Data Extraction Process

    End With
 
'Subtract one year from the most recent to redefine the value of the variable

awardyear = awardyear - 1
 
'End Loop

Next i
 
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
End Sub