ActiveDialogName プロパティ

ActiveDialogName プロパティは、アクティブなダイアログ・ボックスの名前を戻します。

ユーザが新しいダイアログ・ボックスを開くときに、ダイアログ・ボックス名を表示するメッセージ・ボックスを開くには、次のコードを使用します。

Sub DialogBox(DialogBoxName, IsOpen)
        On Error Resume Next
        msgbox "You have just opened the " & ActiveDialogName & _
	 " ダイアログ・ボックスを開きました。"
        On Error GoTo 0
End Sub