Dim OrigName As String
Dim FolderPath As String

OrigName = ActiveWorkbook.FullName
FolderPath = "\MappedDriveFolder1Folder2"

If Dir(FolderPath, vbDirectory) <> vbNullString Then
ActiveWorkbook.SaveAs FolderPath + ActiveWorkbook.Name
ActiveWorkbook.SaveAs OrigName

Else
Exit Sub
End If