Не получается! Что здесь не так?
Цитата:
Private Sub Document_Open()
ShowSplash
End Sub
-----------------------------
Private Sub UserForm_Activate()
Application .OnTime Now + TimeValue("00:00:05"), "KillSplash"
End Sub
----------------------------
Sub KillSplash()
Unload UserForm1
End Sub
|