Save As Message Box

[octord]

I have the following macro:

Sub Save_As()
'
' Save_As Macro
'

Dim File_Name As String
Dim File_Path As String


File_Path = ThisWorkbook.Path & "\\server\pathname\"
File_Name = "Test - " & Format(Date, "MM.DD.YYYY") & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=File_Path & File_Name, FileFormat:=51
Application.DisplayAlerts = True

End Sub

Is there a way to change the "\\server\pathname\" portion to prompt user with the save as message box to chose a different location to save file without getting the "cannot be save in macro-free" message box prompt?

Many, many thanks for all the advice and support you provide!!!

-O