VBAでIEを利用してURL取得する際にエラーがでます。

Question

前提・実現したいこと

ExcelのB列2行目から記載された文字を自動的にIEでURL取得し隣のC列へURLを記載したいです。

下記記述のコードで上手くいく場合もあるのですが、特定の文字列が含まれるとエラーが発生します。

発生している問題・エラーメッセージ

実行時エラー'91':
オブジェクト変数またはWithブロック変数が設定されていません。

該当のソースコード

Sub ボタン05_Click()

    Sheets("Sheet1").Select
    
    Dim objIE As Object
    Dim rng As Range
    Dim i As Integer
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    'IEを非表示
    objIE.Visible = False
    
    For i = 2 To 6
    
        Dim company As String
        
        company = Cells(i, 2).Value '検索語
    
        If company <> "" Then
            '※URLパラメータに検索語を埋め込めば、検索結果を表示できる
            objIE.navigate "https://www.google.co.jp/search?q=" & company
            
            IEWait objIE 'IEの読み込み待ち
            
            '※検索結果にはクラス名"rc"が付けられているので、その最初のURLを取得
            Cells(i, 3).Value = objIE.document.getElementsByClassName("rc")(0).GetElementsByTagName("a")(0).href
        End If
    
        WaitFor (2)
        Debug.Print Now & " " & company
    Next i
    
    ' IE終了
    objIE.Quit
    Set objIE = Nothing
    
    MsgBox ("処理が終了しました")
    
End Sub

試したこと

VBA初心者のためどうすればよいのかよくわかりません。。。

補足情報（FW/ツールのバージョンなど）

Excel2016で動かしています。

Comments

[退会済みユーザー]

「特定の文字列」の例を提示していただけると、回答をもらいやすいと思います。

[yuseimaru]

ご指摘ありがとうございます。
例えば「有限会社」で実行した際には上記エラーが発生いたします。

Answer 1

set els1 = objIE.document.getElementsByClassName("rc")
If els1.length > 0 then
    set els2 = els1(0).GetElementsByTagName("a")
    If els2.length > 0 then
        Cells(i, 3).Value = els2(0).href
    End If
End If

Comments

[TanakaHiroaki]

いいですね。若干の修正で正常動作を確認しました。
Cells(i, 3).Value = els2(0).href
'Cells(i, 3).Value = els2.href

[yuseimaru]

早速のご回答ありがとうございました。確認が遅くなり申し訳ありません。
ソースを書き換えてみたのですが、上手くいきません。
こちらの記述はどこと書き換えればよいのでしょうか？
何卒よろしくお願い致します。

[kuma_kuma_]

＞ Cells(i, 3).Value = objIE.document.getElementsByClassName("rc")(0).GetElementsByTagName("a")(0).href
結局検索結果がこの形になっていないからエラーになるので
本当にタグがあるのか確認しながら行います。