Application.FileSaveWorkspace Method (Project)
Office 2013
Saves a list of open files and the current settings in the Options dialog box.
The following example saves the workspace based upon the name of the first project file.
Sub SaveWorkspaceByProjectName()
Dim WSName As String
If InStr(Projects(1).Name, ".") Then
WSName = Left$(Projects(1).Name, Len(Projects(1).Name) - 1) & "W"
Else
WSName = Projects(1).Name & ".MPW"
End If
FileSaveWorkspace WSName
End Sub