Macro to add a folder to sharepoint

[tonywatsonhelp]

Hi Everyone,
I need a macro that will add a new folder to a location in sharepoint as shown below.
my code works on dropbox and locally but not on sharepoint I just get a "Cant find file path error".
I imagine this is a very complicated request so I understand if it can't be done but does anyone hove any ideas how I could do this?
I've left a copy of my code below just as a guide.

Thanks

Tony

Sub Create_New_Folder_v1()
ProjectName = User.Range("G3").Value & "/"
NewFolder = "https://mhr.sharepoint.com/sites/Confidential/Shared%20Documents/Finance%20-%20Confidential/Accs/Mgmt%20Accounts/Project%20Reports/2022_Projs/" & ProjectName & "Reports New" & "/"

If Dir(NewFolder, vbDirectory) = "" Then MkDir NewFolder



End Sub