Trying to access Sharepoint list Access is denied. (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED))

Question

I am trying to obtain a sharepoint list in vba using this query. I have changed my sharepoint url but everything else is the same:

Sub spListQuery()

    Dim webU