Macro written in 32 bit System - Not working as it should in 64 bit System - the attached link to SharePoint in excel now is read only|VBA & Macros|Excel Forum|My Online Training Hub

So I have written a spreadsheet that basically moves to each person after they have completed their section, it attaches a link to the SharePoint site and sends an email to the next person in the chain with that link that opens the actual file on SharePoint.

The file was written in 32 Bit and worked fine, but now I have been upgraded to 64 Bit the link opens up as read only and the spaces in the filename have been replaced by %20 

Can anyone help with this please??

Here is the Code

Sub YES_BUTTON_PROJECT_LEADER()
'
' YES_BUTTON_PROJECT_LEADER Macro
'

'

ActiveSheet.Shapes("YES").Select
ActiveSheet.Shapes("YES").Fill.ForeColor.RGB = RGB(0, 255, 0) ' fill: dark green color
ActiveSheet.Shapes("YES").Line.BackColor.RGB = RGB(198, 217, 241) ' border: light blue color
ActiveSheet.Shapes("YES").TextFrame.Characters.Font.Color = RGB(0, 0, 0) ' text: white color
Range("A1").Formula = 14.28571 'fills cell with button value
' nonactive
ActiveSheet.Shapes("no").Select
ActiveSheet.Shapes("no").Fill.ForeColor.RGB = RGB(255, 0, 0) ' fill: light blue color
ActiveSheet.Shapes("no").Line.BackColor.RGB = RGB(198, 217, 241) ' border: light blue color
ActiveSheet.Shapes("no").TextFrame.Characters.Font.Color = RGB(0, 0, 0) ' text: dark blue color

'ActiveWindow.SelectedSheets.Visible = True
Range("A31").Select
Application.Goto Reference:="R1C1"

ActiveWorkbook.SaveAs Filename:= _
"https://gbconnect.sharepoint.com/sites/BUKGBGATEPROCESS/MDF/MAIDSTONE COMPLETED MDF FORMS 2021/" & ActiveWorkbook.Name
ActiveWorkbook.AutoSaveOn = True

Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")

mbody = "Hello" & vbNewLine & _
"We have a new MDF Brief In, The Project Leaders Section is complete" & vbNewLine & _
"NPD is first in the flow so please complete your section" & vbNewLine & _
" " & vbNewLine & _
""

sbody = "Many Thanks" & vbNewLine & _
"Kind Regards" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
""
With OutlookMail

.To = "email.address.com" 
.CC = ""
.BCC = ""
.Subject = "Please be aware that a new MDF for " & Sheets("Main Menu").Range("I10").Value & " " & Sheets("Main Menu").Range("I11 ").Value & " " & Sheets("Main Menu").Range("I12 ").Value & " " & Sheets("Main Menu").Range("I13 ").Value & " " & Sheets("Main Menu").Range("I14 ").Value & " " & Sheets("Main Menu").Range("I15 ").Value & " " & Sheets("Main Menu").Range("I16 ").Value & " " & Sheets("Main Menu").Range("I17 ").Value
.Body = mbody & sbody & Sheets("Project Leader").Range("d14").Value
.Attachments.Add ActiveWorkbook.FullName
.Send

End With

Set OutlookMail = Nothing
Set OutlookApp = Nothing

End Sub

many Thanks 

Richard