htmlDoc.getElementsByNameでエラー

※End Subが不足していましたので、修正いたしました。
プログラムから対象だけを抽出していたために、End Subが不足しておりました。大変申し訳ございません。(2017/4/21 22:31修正)

###前提・実現したいこと
VBAで、IE経由で日経新聞サイトから特定のキーワードで指定した記事を抽出するプログラムを作っています。私自身のPCではエラーが発生しないのですが、クライアントのPCではエラーが発生します。エラーの発生原因や解消方法をご教示いただきたいです。

環境は以下の通りです。
・私のPC： Excel2016, IE11
・クライアントのPC： Excel2010,IE11

###発生している問題・エラーメッセージ
htmlDoc.getElementsByName("keyword")(1).Value = keywords(i, 1)でエラーメッセージ
「オブジェクト変数またはWith ブロック変数が設定されていません」

###該当のソースコード
Option Explicit
Public htmlDoc As HTMLDocument
Public objIE As InternetExplorer
Public book_name As Variant
Public keywords As Variant

Sub Execute()
Dim Max_Row As String
Dim url As Variant
Dim el As IHTMLElement

book_name = ActiveWorkbook.Name
Max_Row = Workbooks(book_name).Sheets("実行画面").Range("B1048576").End(xlUp).Row
ReDim keywords(1 To Max_Row - 5, 1 To 1)
keywords = Workbooks(book_name).Sheets("実行画面").Range("B6:B" & Max_Row).Value

Set objIE = CreateObject("Internetexplorer.Application")
objIE.Visible = True
url = "http://t21.nikkei.co.jp/g3/p03/LATCB012.do?mediaCode=NKM"
GoToUrl (url)

For i = 1 To Max_Row - 5
htmlDoc.getElementsByName("keyword")(1).Value = keywords(i, 1)
htmlDoc.getElementById("todaypaperHeadlineForm").submit
WaitWeb
Set htmlDoc = objIE.Document
For Each el In htmlDoc.Links
x = x + 1
hrefs(x, 1) = keywords(i, 1)
hrefs(x, 2) = el.href
hrefs(x, 3) = "日本経済新聞朝刊"
Next el
Next i
End Sub