ダイアログボックスを表示する

Sub ダイアログボックス()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub