How to set file Filter in Save dialog box

[sreenath205]

Hi All

I have a button in one of my sheet,when i click on it following macro
code is invoked

Code:
--------------------


Private Sub CommandButton3_Click()
Sheets("InputFile").Select
Application.Dialogs(xlDialogSaveAs).Show
End Sub


--------------------


Question: The dialog which opens up has filters like "All
files[*.*],Test[*.txt]" etc in fileType: filetr,how to restrict this
filter to *.txt" only?

Thanks
Sreenath M

 

[Harald Staff]

Hi

Try using
Application.GetSaveAsFilename
instead of that dialog, you have no control of how that one turns out. See
Help for detail.

HTH. Best wishes Harald

"sreenath205" <[email protected]>
skrev i melding
news:[email protected]...