削除

VBAのIE操作で困っています。削除

Message#1 2014年12月8日(月)18時34分
From: B-COMP

エクセル（VBA)作成で行き詰ってます。対処方法を教えていただきたいです。
セルA1に入っている文字をヤフーで検索して、その虫眼鏡キーワードを取得したいのですが、虫眼鏡キーワードが無い場合、Set objTag = objIE.Document.all("Si1").all.tags("a")で「エラー424のオブジェクトが必要です」というメッセージがでます。虫眼鏡キーワードが無い場合に「虫眼鏡キーワードがありません」というメッセージで終わるにはどうすればよろしいでしょうか？※ 「On Error GoTo myError」などの強制回避的なものは無しでお願いします。

Sub 虫眼鏡()

Dim objIE As Object 'ＩＥオブジェクト参照用
Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
Dim objTag As Object
Dim n As Integer
Dim keyword As String

objIE.Visible = True '見えるようにする

'キーワード日本語対応
Set sc = CreateObject("ScriptControl")
sc.Language = "Jscript"
Set js = sc.CodeObject

'キーワード代入
keyword = js.encodeURIComponent(Range("A1"))

'キーワードで検索
objIE.Navigate "http://search.yahoo.co.jp/search?p=" & keyword

'手抜きで2秒待つ(オブジェクトの展開時間を待つ)
Application.Wait Time:=Now + TimeValue("00:00:03")

Set objTag = objIE.Document.all("Si1").all.tags("a")

For n = 0 To objTag.Length - 1
Cells(5 + n, 3) = objTag(n).innerText
Next n

'IEを閉じる
objIE.Quit
Set objIE = Nothing

End Sub

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。