組み込みダイアログボックス（フィルタオプションの設定）

Application.Dialogs(xlDialogFilterAdvanced).Show