Makro til at åben fil på One-Drive

Hej
Jeg har denne makro der henter en fil der ligger i overførsler, den fungere perfekt.
FilNavn = Sheets("Kalender").Range("G1").Value
    Workbooks.Open Filename:="C:\Users\" & Sheets("Kalender").Range("I1") & "\Downloads\" & FilNavn & ".xlsx"

Nu vil jeg gerne lave en makro der skal hente en fil der ligger på One-Drive, hvordan gør jeg det? Hvis jeg indspiller den ser den sådan ud
Sub Open()
Workbooks.Open Filename:= _
        "https://XXgroup-my.sharepoint.com/personal/don_X_dk/Documents/Export.xlsm"
End Sub
Det er don_X_dk der skal udskiftes med "Users"