Всем привет! В диапазоне A5:A507 записаны тикеры компаний из индекса S&P500. Хочу диапазон B5:B507 заполнить названиями компаний. Данные беру из сайта finviz.com. С помощью нижеприведенного кода получается заполнить все ячейки, кроме последней (B507 с тикером SOLV). Ошибка 91 - Object variable or With block variable not set. Интресно, что проблема не в позиции тикера SOLV - A507, а в самом тикере, потому как я его переставлял уже в середину диапазона. Сам тикер и информация по компании на сайте есть.

Sub comparisonShares()

   Dim xmlReq As New XMLHTTP60
   Dim htm As HTMLDocument
   
   Set xmlReq = New XMLHTTP60
   Set htm = New HTMLDocument
   
   Dim i As Long
   
   Dim firstTextSite As String
   Dim lastTextSite As String
   Dim ticker As String
   
   Dim companyName As Variant
       
       
   For i = 5 To 508
   
       firstTextSite = "https://finviz.com/quote.ashx?t="
       lastTextSite = "&p=d"
       ticker = Workbooks("VBA Lessons.xlsm").Worksheets("SP500").Range("A" & i)
   
       xmlReq.Open "GET", firstTextSite & ticker & lastTextSite, False
       xmlReq.send
   
       htm.body.innerHTML = xmlReq.responseText    
   
       companyName = htm.getElementsByClassName("tab-link block truncate")(0).innerText
   
       Workbooks("VBA Lessons.xlsm").Worksheets("SP500").Range("B" & i).Value = companyName
       
   Next i

End Sub