ExcelVBA DOMであるリンクを探してクリックする方法

        For Each objITEM In objIE.Document.Links
        If objITEM.tagName = "A" Then
            strpos = InStr(objITEM.href, "探しているhref")
            If strpos <> 0 Then
                objITEM.Click
                Sleep (500)
                IE_Complete objIE
                Exit For
            End If
        End If
        Next