VBA to open SaveAs dialog box in specific folder

[Holley]

Hello again! Once again I come asking for your help. I have a macro that does everything I want it to, until the end. The file is being opened on a personal drive (D: ), but I would like to save it on a network drive (G: ). Everything works, even converts from .txt to .xlsx except it keeps opening the dialog box on the personal drive (Drive D where the file originates). This will be ran regularly and will need to be saved on the G drive with the only thing changing is the file name, which is why I want the prompt to open. Any help would be most appreciated. Below is the code I am using. Thank you in advance!!

Sub KP()
'
' KP Macro
'
' Keyboard Shortcut: Ctrl+Shift+P
'
    Cells.Select
    Selection.Columns.AutoFit
    ActiveSheet.Range("$A$1:$G$126").RemoveDuplicates Columns:=4, Header:=xlYes
    ActiveWorkbook.Worksheets("CUST601").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("CUST601").sort.SortFields.Add2 Key:=Range( _
        "E2:E126"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("kohl601").sort
        .SetRange Range("A1:G126")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("F:F").Select
    Selection.Style = "Currency"
    Range("F3").Select
    Selection.End(xlDown).Select
     Cells.SpecialCells(xlCellTypeVisible)(1).Select
     ChDir "G:\"
    Dim wb As Boolean
       wb = Application.Dialogs(xlDialogSaveAs).Show(File_Name, 51)
End Sub

 

[pbornemeier]

You are welcome. Glad to help.