Make 'Save as' dialog box appear

hi guys! how can make the 'Save as' dialog box appear using macro. Any inputs will be greatly appreciated.

In which app? Do you just need to save the workbook or document or save a custom file?

in which app? to any MS office...save? i want the 'Save as' dialog box appear in order for the user to specify his/her own filename and for his/her convient also.

But which office app are you using as they have different methods in each.

excel and word.

Excel:

VB Code:

Application.GetSaveAsFilename(...

And for Word:

VB Code:

Application.Dialogs(wdDialogFileSaveAs).Show

thanks for that!!!!

wait..i have problem with the dialog box in my excel app..why is it when i save it, say for example in my document, why is it i can find it there..maybe i think the file isn't actually save..can you give me the full syntax for that? currently i have the code below.

VB Code:

Application.GetSaveAsFilename (ThisWorkbook.Name)

Heres all the arguments filled in.

VB Code:

Application.GetSaveAsFilename InitialFileName:=ThisWorkbook.Name, FileFilter:="Excel Workbooks (*.xls),*.xls", FilterIndex:=1, Title:="SaveAs Dialog Example"