Hi,
I'm getting a Run Time Error 9 - Subscript out if range for the following code:
Any tips?Sub Demo() Sheet7.Range("E2").ClearContents Dim Val As String With CreateObject("Msxml2.ServerXMLHTTP.6.0") .Open "GET", Sheet7.Range("D2"), False .setRequestHeader "DNT", "1" .Send Val = Split(Split(.responseText, "'stats_chart_table_key'>")(1), "<")(0) Sheet7.Range("E2").Value = Val End With End Sub
Thank you.
Bookmarks