VBAで自動的に閉じるメッセージボックス

WScriptを使用する。

    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")
    shell.Popup "5秒後、自動的に閉じます", 5, "タイトルバー", vbInformation
    Set shell = Nothing