Want to SAVE AS to an Exact File location

[Danin]

I have a purchase order, i have macros that allow me to send specific cells to a specified workbook and save that information.
I want to add a VBA to open to a file location and allow me to type in a name to save the new purchase order under.
I can get as far as opening the Save As box. but I want to open it to the folder I need to save in.
Any suggestions?

 

[YasserKhalil]

May be you mean that

Sub Test()
    Dim fileName As String
    Dim iFileName As String
   
    'Change To Suit
    iFileName = ThisWorkbook.Path & "\" & "Test File Name.xlsm"
   
    fileName = Application.GetSaveAsFilename(InitialFileName:=iFileName, Filefilter:="Excel Macro-Enabled Worksheet (*.xlsm), *.xlsm")
End Sub