Using VBA to Save by save as dialog box

[Astatine]

Hi

I would like to save a file using save as dialog box.
Currently i change direct to the path, but i want to prevent user to change to location path.
How do i lock the location?
Below is my VBA coding.

Sub SaveAS()
Dim wb As Boolean
ChDir "\\Ractition\File"
wb = Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[Logit]

ACTIVEWORKBOOK.SAVEAS ("C:\TEMP\TEST1.XLSX")