Mike Hammer
Registered User

I have created a macro that saves the active workbook as a csv. file automatically in a chosen destination. I want to know how I can create a prompt using macro so it will ask me if I want to save it as a csv. in the folder my original excel file is in.

At the moment this code prompts me to save the file in My Documents (which I don't want it to do) then automatically saves the csv file in a designated destination.

My Code so far:

Sub SaveAsCSV()

file_name = Application.GetSaveAsFilename(FileFilter:="Comma Delimited File(*.csv), *.csv")

ActiveWorkbook.SaveAs Filename:= _
"H:\Saved Folder\File Name.csv", FileFormat:=xlCSV, _
CreateBackup:=False
End Sub