Решать.CommandType = 0 ошибка в excel

Я пытаюсь запустить этот макрос в Excel, который извлекает данные с веб-сайта в цикле.
Есть одна таблица, которую мне нужно вытащить из каждой из около 50 веб-страниц, и цикл там, чтобы запустить функцию, которая извлекает данные с каждого сайта

Dim startYear As Integer
Dim endYear As Integer
Dim strStartYear as String

For startYear = 1942 To 2014

    ' Convert the current start year number to a string, then take the last two characters and assign to strStartYear
    ' So 1942 becomes "42".
    strStartYear = Right(CStr(startYear),2)
    ' Convert the string back into an (integer) number, and add 1 to create the End year.
    endYear = CInt(strStartYear)+1

    ' Use these variables in your other commands to specify the start/end year
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.whatifsports.com/nhl-l/profile_team.asp?hfid=11&season=" & startYear & "-" & endYear _
        , Destination:=Range("$A"))
        .CommandType = 0
        .Name = "profile_team.asp?hfid=11&season=" & startYear & "-" & endYear
        'other stuff omitted  for brevity
    End With
Next startYear

код ошибки, который я получаю, - это ошибка времени выполнения " 5 " недопустимая процедура или аргумент

в строке подсветка ".CommandType = 0"