VBA的msgbox怎么弄成倒计时结束后自动执行默认操作?

2011whp

自己做一个 窗体可以

窗体：
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:03"), "模块1.msg2"
Application.OnTime Now + TimeValue("00:00:03"), "模块1.msg1"
End Sub


模块1
Sub main()
UserForm1.Show
End Sub

Sub Msg1()
   UserForm1.Hide
End Sub

Sub msg2()
Sheet1.Range("A1").Value = "abc"
End Sub