Good Day,
I have developed a spreadsheet for our internal use. However, stuck up with the SAVE AS button.
What I require is that after pressing the SAVE AS button, a new dialogue box will open. After entering the file name and selecting the desired folder in the local drive, the spreadsheet is supposed to be saved in it. The code that I have written is stated underneath which overwrites the previously saved file.
"Sub SaveAsDialog()
On Error Resume Next
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Please choose a location and file name to save"
.ButtonName = "SAVE AS"
.InitialFileName = "E\RTGS TEMPLATE(PARTY)\"
If .Show = 0 Then
MsgBox "The file did not save.", vbCritical
Exit Sub
End If
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With
End Sub"
Can I expect any help from you to resolve this matter?
Thank you for your time and attention