Auto filename but with a pop up window to manually select file path

[alfgrey]

Hi, I currently use the below code for some of our workbooks to auto save with a filename made up of cell values and automatically saves to a predetermined location.

Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Dim Filename2 As String
Path = "C:\Users\desired file path etc"
FileName1 = Range("I7")
Filename2 = Range("C26")
ActiveWorkbook.SaveAs Filename:=Path & "CIS-" & FileName1 & " - " & Filename2 & ".xlsm"
Application.Dialogs(xlDialogPrint).Show
End Sub

However I now have some workbooks that i wish to still have the file name auto named (to avoid user error and maintain file name consistency / formatting) but I want the user to be able to manually select the file path.

Is this possible?

Any assistance greatly appreciated.

 

[Fluff]

Untested, but try

Sub Fldr()

   Dim Fldr As Object
   Dim pth As String
   Dim FileName1 As String
   Dim Filename2 As String

   Set Fldr = Application.FileDialog(4)
   With Fldr
      .title = "Select a Folder"
      .AllowMultiSelect = False
      .Show
      pth = .SelectedItems(1)
   End With
   FileName1 = Range("I7")
   Filename2 = Range("C26")
   ActiveWorkbook.SaveAs FileName:=pth & "\CIS-" & FileName1 & " - " & Filename2 & ".xlsm"
End Sub