Don't have Sharepoint anymore, but try something like this
I use the commented out part for local drives
Option Explicit
Sub Concept()
Dim sFilename As String
'i don;t have sharepoint anymore, but record a macro where you save it to get the server address, something like
'"\\sp001-server@SSL\sites\SiteCollectionName\DocumentLibrary\ Filename.xlsm"
sFilename = Application.GetSaveAsFilename(Title:="Where to save the file")
If sFilename = "False" Then
MsgBox "Not going to save it"
Exit Sub
End If
sFilename = "\\sp001-server@SSL\sites\SiteCollectionName\DocumentLibrary\" & sFilename & ".xlsm"
MsgBox sFilename
'can't really save it
ThisWorkbook.SaveAs sFilename, xlOpenXMLWorkbookMacroEnabled
'----------------------------------------------- similar for local drive
' ChDrive "D:"
' ChDir "\test"
'
'
' sFilename = Application.GetSaveAsFilename(Title:="Where to save the file")
'
' If sFilename = "False" Then
' MsgBox "Not going to save it"
' Exit Sub
' End If
'
'
' sFilename = sFilename & ".xlsm"
'
' MsgBox sFilename
'
' ThisWorkbook.SaveAs sFilename, xlOpenXMLWorkbookMacroEnabled
End Sub