If the document is being used as a template then instead of opening the file create a new file from it i.e.
Code:
Set oDoc = objWord.Documents.Add("https://XXXX-my.sharepoint.com/personal/" & UserName & "_XXXX/Documents/_MyProfile/Desktop/Business%20Executive%20Summary%20MASTER.docx?web=1")
That document is then unnamed, so you can add a line to save it wherever you want with whatever name you want.