【マクロ】ユーザーフォームを自動で閉じる

 ------------------------------------------------ 

フォームを開くコードをModuleに記入する

'モジュールに書き込む

Sub Sample()

    UserForm1.Show   

End Sub

-----------------------------------------------

ユーザーフォーム自体に下記コードを記入

'ユーザーフォームに書き込む

Private Sub UserForm_Activate()

       Dim 指定時刻 As String

    '現在時刻より3秒

    指定時刻 = Now + TimeValue("00:00:10")   

    Application.Wait (指定時刻)

        Unload Me

End Sub