「ポートフォリオ管理シート」について

Yahoo!ファイナンスのHPリニューアルにより、公開している「ポートフォリオ管理シート Ver.1.1.1」が正常に動作しなくなっています。

「クエリの編集」で「表名または数値をカンマで区切って入力してください」というところに15と入っていますが、これを14に変更すれば、また正常に動作すると思います。

変更箇所がたくさんあって大変という方は、下記マクロでまとめて修正できます。
【注意】変更したいシートをアクティブにして、マクロを実行してください。

Sub ChangeWebTables()

  Dim objQueryTable As QueryTable

  For Each objQueryTable In ActiveSheet.QueryTables
    If objQueryTable.WebTables = "15" Then
      objQueryTable.WebTables = "14"
      objQueryTable.Refresh
    End If
  Next

End Sub