WorkbookSaveAsk_ANmar

Asks user to save file (or workbook) using GetSaveAsFilename method.
Returns full path and file name if success, and blank if not
StartingFolder is optional, will use FixPath to return folder of this workbook if ignored.
ExtFilters has example of multiple filters in drop-down

Function WorkbookSaveAsk_ANmar(Optional StartingFolder = "This", Optional ExtFilters = "All Excel files, *.xls?,All files, *.*", Optional InitialFile = "Sheet1.xlsx")
 If StartingFolder = "This" Then StartingFolder = FixPath()
 ChDir StartingFolder
 Rett = Application.GetSaveAsFilename(InitialFile, ExtFilters)
 If Rett = "False" Then Rett = ""
 WorkbookSaveAsk_ANmar = Rett
End Function

Optional StartingFolder, Optional ExtFilters

Views 1302 Downloads 598

'FixPath', 'Workbook', 'save as', 'save', 'saveas', 'file', 'folder', 'browse', 'GetSaveAsFilename', 'GetOpenFileName'

ANmarAmdeen
483
Attachments
File System VBA-Excel
Revisions

v1.0

Needs