Получение данных с веб-страницы с закраской ячеек в определенный цвет в зависимости от ID данных

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

Sub doCells()
    Dim urlStr As String
    urlStr = "http://www.ttt.by 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

var id_note="";
var idLabel="";
var id="";
 
idLabel = "Status:";
id = "Information Received";

Option Explicit 
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean 
    Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte 
     'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") 
    oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
    oXMLHTTP.Send 'send request
     'Wait for request to finish
    Do While oXMLHTTP.readyState <> 4 
        DoEvents 
    Loop 
    oResp = oXMLHTTP.responseBody 'Returns the results as a byte array
     'Create local file and save results to it
    vFF = FreeFile 
    If Dir(vLocalFile) <> "" Then Kill vLocalFile 
    Open vLocalFile For Binary As #vFF 
    Put #vFF, , oResp 
    Close #vFF 
     'Clear memory
    Set oXMLHTTP = Nothing 
End Function 
 
Sub TestingTheCode() 
     'This will save the Google logo to your hard drive, insert it into the
     ' active spreadsheet, then delete the local file
    SaveWebFile "http://www.google.com/intl/en/images/logo.gif", "C:\GoogleLogo.gif" 
    ActiveSheet.Pictures.Insert "C:\GoogleLogo.gif" 
    Kill "C:\GoogleLogo.gif" 
End Sub

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