Prompt where to save the file

Hey, the below code should work, just call it as a function in your code:

Code was originally posted here:
http://www.mrexcel.com/forum/excel-q...lications.html

NewName = InputBox("Please Specify the name of your new workbook", "New Copy")
varPath = GetFolder("C:\")
if Right(varPath,1) <> "\" Then
varPath = varPath & "\"
End If
' Save it with the NewName and in the same directory as original
ActiveWorkbook.SaveCopyAs varPath & NewName & ".xlsx", FileFormat:=51
ActiveWorkbook.Close
ActiveWorkbook.Close SaveChanges:=False



Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Something like

    Dim NewName
    NewName = Application.GetSaveAsFilename(FileFilter:="Excel file,*.xls*")
    If NewName = "False" Then Exit Sub
    MsgBox NewName

@jindon

Ur code does prompt for directory to save but file is not being saved. No new file is being created.

@AranDG

I get "Varibale not Defined" error message (Highlighting "Varpath" in yellow.

I thought you knew the rest, did I expect too much?

    Dim NewName
    NewName = Application.GetSaveAsFilename(FileFilter:="Excel file,*.xls*")
    If NewName = "False" Then Exit Sub
    activeworkbook.saveas newname

@Jindon

I am newbie to VB and still learning things. Thanks for the help.