Have a look at this section of code. It may give you an alternative idea.
Public Sub SaveDemo()
Dim FName As Variant
FName = Environ("userprofile") & "\My Documents\" & ActiveSheet.Name & ".xls"
If Not Dir(FName) = "" Then
Ln1 = "The file " & FName & "already exists." & vbCrLf
Ln2 = "Please change the following path if you don't want to overwrite."
FName = Application.InputBox(Ln1 & Ln2, "OverWrite File ?", FName)
If FName = False Then Exit Sub
End If
If Not Len(Trim(FName)) = 0 Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=FName
Application.DisplayAlerts = True
MsgBox "The File Has Been Saved In " & FName
End If
End Sub