Hello I am trying to force users to save a file to a specific location on our network when they open a file from our intranet. I don't want the user to save the file back onto the intranet. Below is my code works great except a user can cancel the save as window and unintentionally save the altered file back onto the intranet.
BTW did i mention I'm new to this and appriacte any assistance
Sub Aut
pen()
Dim Workbook_Name As Variant
MsgBox "Save to desktop prior to working", vbInformation + vbOKOnly, "Hello Ops Team"
If Dir("R:\Provider Ops", vbDirectory) = "" Then
MsgBox "No folder"
Exit Sub
End If
If ThisWorkbook.name = "Triaging for Vendors.xlsm" Then Exit Sub
Workbook_Name = Application.GetSaveAsFilename("R:Provider Ops\Triaging for Vendors")
If Workbook_Name <> False Then
ActiveWorkbook.SaveAs _
FileName:=Workbook_Name & ".xlsm", _
FileFormat:=52
End If
End Sub
BTW did i mention I'm new to this and appriacte any assistance
Sub Aut

Dim Workbook_Name As Variant
MsgBox "Save to desktop prior to working", vbInformation + vbOKOnly, "Hello Ops Team"
If Dir("R:\Provider Ops", vbDirectory) = "" Then
MsgBox "No folder"
Exit Sub
End If
If ThisWorkbook.name = "Triaging for Vendors.xlsm" Then Exit Sub
Workbook_Name = Application.GetSaveAsFilename("R:Provider Ops\Triaging for Vendors")
If Workbook_Name <> False Then
ActiveWorkbook.SaveAs _
FileName:=Workbook_Name & ".xlsm", _
FileFormat:=52
End If
End Sub