Old scraping algorithm.





Sub Get_Odds_Data(ByRef CurrentSheet As String)

Dim URL As String
Dim XMLreq As Object