Complex Cell Formatting based on web data presence

[el1te]

Basically I want to somehow derive a function that visits the website below and if table 2 is present, cell A1 is red whereas if a table 2 is not present Cell A1 does not change colour

http://www.investegate.co.uk/Advance...qsContains=rkh

A table is only present when news for the company is available.

Would really appreciate some help with this.

Thanks alot​

 

[el1te]

no-one?

 

[Kyle123]

Maybe:

Public Sub Test()
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "http://www.investegate.co.uk/AdvancedSearch.aspx?qsArticleType=ann&qsSearchFor=S2&qsSpan=1D&qsContains=rkh"
    .send
    If (UBound(Split(.responsetext, "announcementList"))) > 0 Then
        Sheet1.Cells(1, 1).Interior.Color = RGB(255, 0, 0)
    Else
        Sheet1.Cells(1, 1).Interior.Color = RGB(0, 0, 0)
    End If
    .abort
End With
End Sub