MLB Web Connection for standings

The following VBA code will create a spreadsheet with the MLB standings.

SAS Fifth Dimension Macro-Input Output

Review the following code, copy it to Excel and execute it.

Sub MLB_standings()
   'Copy MLB standings into spreadsheet
    SPORT_NAME = "mlb"
    SELECTED_YEAR = "2011"
    SPORT_URL = "URL;http://sports.yahoo.com/" & SPORT_NAME & "/" & _
                "standings?type=regular&year=season_" & SELECTED_YEAR
    NXT = NXT + 1
    Workbooks.Add
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Name = UCase(SPORT_NAME) & " standings" & "_" & SELECTED_YEAR
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Select
    With ActiveSheet.QueryTables.Add(Connection:=SPORT_URL, _
           Destination:=Range("$A$1"))
          .Name = SPORT_NAME & " standings"
          .RefreshStyle = xlInsertDeleteCells
          .RefreshPeriod = 0
          .WebFormatting = xlWebFormattingNone
          .WebDisableDateRecognition = True
          .WebSelectionType = xlSpecifiedTables
          .WebTables = "1,1"
          .BackgroundQuery = False
          .Refresh
    End With
   'Set sheet name
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Name = UCase(SPORT_NAME) & " standings" & "_" & SELECTED_YEAR
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Select
    Columns("M:Q").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:7").Select
    Selection.Delete Shift:=xlUp
    Cells(1, 1).Select
End Sub