' Получаю все объекты с тэгом а
Set refs = WebBr.Object.Document.getElementsByTagName("a") '
                               
' делаю задержку
Call delay(1)

' Начальные значения  счетчика и конечной ссылки 
                                iCounter = 0                    '
                                ref = ""

' Перебираем все объекты
Do While iCounter <= refs.length         '
                               
                                    
' если ссылка содержит упоминание договора, то это то. что нам нужно
                                    If  InStr(refs(iCounter).href, "/contracts") > 0 Then         '
                                       ref = refs(iCounter).href
                                       iCounter = refs.length         '
                                    End If
                                    
                                    iCounter = iCounter + 1                        '
                                Loop                                          '
                                If ref <> "" Then
                                 WebBr.Object.Navigate2 ref