[ファイル名を付けて保存]ダイアログボックスの初期値を設定して表示するには、Showメソッドの引数を使用します。
Showメソッドの構文は「Show(arg1, arg2, ..., arg30)で、引数arg(n)に値を設定して初期表示される内容を変更します。
サンプルマクロでは、[ファイルの種類]を「テキスト(スペース区切り)(*.prn)」に設定しています。
Sub Sample()
Application.Dialogs(xlDialogSaveAs).Show _
arg1:="c:\", arg2:=36
End Sub