"Save As" macro

[Kingtriton]

How do I create a macro to open the save as folder so that a user ca
save the "ActiveSheet" to whatever dir and filename that they want?
can get it to save but it wont let me choose a save location or uniqu
save name.
Thanks for any help,
Kingtrito

 

[gitcypher]

I know I've initiated the -open- window once a pretty good while ago
I'll see if I can find that spreadsheet and get back to you with som
suggestions.

-gitcyphe

 

[Danny]

Try this:

Sub Auto_Close()
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName
End Sub

 

[gitcypher]

Found it...

Sub test()

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsof
Excel Workbook (*.xls), *.xls")
'You can modify the 'fileFilter setting to whatever you like.
assumed *.xls would be the most probable format.
If fileSaveName <> False Then ActiveWorkbook.SaveA
Filename:=fileSaveName, FileFormat:=xlNormal
'I suggest recording the save as macro to customize all of it
options
End Sub

-Gitcyphe

 

[gitcypher]

Found it...

Sub test()

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsof
Excel Workbook (*.xls), *.xls")
'You can modify the 'fileFilter setting to whatever you like.
assumed *.xls would be the most probable format.
If fileSaveName <> False Then ActiveWorkbook.SaveA
Filename:=fileSaveName, FileFormat:=xlNormal
'I suggest recording the save as macro to customize all of it
options

End Sub

-Gitcyphe

 

[Kingtriton]

Thanks! Worked like a charm