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 340 Downloads 150

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

ANmarAmdeen
324
Attachments
File System VBA-Excel
Revisions

v1.0

Needs