sURL = "Explorer http://" & Cells(1, 1) & ".livejournal.com/"

Shell sURL, vbNormalFocus

Из объектной модели эксплорера можно вытащить все, либо распарсить HTML, либо по коллекциям элементов лазить.

Если поискать в google на 'CreateObject("InternetExplorer.Application")'

вылезет море подобных примеров. что дальше требуется я не совсем въехал поскольку непонятно, что за определенная строка в определенной странице итп.

Нужно быть поконкретнее и дать адреса или сампл с исходными данными выложить.

Sub doCells()
    Dim urlStr As String
    urlStr = "www.ttt.by"
    Dim c As Range
    For Each c In Selection.Cells
     urlStr = urlStr & "nn = " & c.Value
    Next c
    Dim objie As Object
    Set objie = CreateObject("InternetExplorer.Application")
   
    With objie
        .Visible = True
        .Navigate urlStr
        Do While .Busy: DoEvents: Loop
        Do While .ReadyState <> 4:  Loop
    End With
   
End Sub

Вот примерчик получающий файл через XMLHTTP.

А в чем проблема-то с бэкграундом? Установить свойство visible у Эксплорера и тогда он не будет видимым. А поиск выполнить распарсив HTMl с помощью Microsoft regular Expression component. У Эксплорера есть свойство document (а у него InnerHTML) по объектной модели документа лазить перебирая коллекции тегов. Если у тега имя есть - можно его найти методом  GetElementByID.

Можно на форму плюхнуть Explorer component и через него делать.

Можно скачать веб страницу и искать в ней используя регулярные выражения. Если в одной странице много всяких значений, то приджется искать их и засовывать в хеш scripting.dictionary, а потом как-то выполнять сопоставление и в нужный цвет ячейки красить. Вот пример поиска c помощью RegExp:

Sub useRegExp()
    Dim s
    s = "var id_note="""";" & vbCrLf & _
        "var idLabel="""";" & vbCrLf & _
        "var id="""";" & vbCrLf & _
        "" & vbCrLf & _
        "idLabel = ""Status:"";" & vbCrLf & _
        "id = ""Information Received"";"
    MsgBox s
    
    Dim re As New RegExp
    re.MultiLine = True
    re.IgnoreCase = True
    re.Pattern = "id.*=.*\x22(Information Received)\x22\;"
    Dim mm As MatchCollection
    Dim mt As Match
    Set mm = re.Execute(s)
    If mm.Count > 0 Then
     Set mt = mm(0)
     MsgBox mt.SubMatches(0)
    End If
End Sub

Далее вводите адрес, выбираете нужную таблицу. и ОК.

Поковыряйтесь в настройках и можете авто настройки установки.