Saving in wrong location

Hello Joel,

The Save As Dialog provides you with an easy to use interface that you can customize. This macro below will change the directory before the dialog is shown. This allows you to view the sub folders and Excel files in the directory you have chosen. Change "NewDir" to the directory you want.

Sub SaveFile()

  Dim FileName As String
  Dim OldDir As String
  Dim NewDir As String

    OldDir = Dir
    NewDir = "C:\Program Files"
    ChDir NewDir

      FileName = Application.Dialogs(xlDialogSaveAs).Show
        If FileName = "" Then GoTo Finished

      ActiveWorkbook.SaveAs Filename:=FileName

Finished:
    ChDir OldDir

End Sub

Sincerely,
Leith Ross