Flash Screen/Timeout msg box

[kiran kumar]

Hi,

I would like to create a flash screen window/message box/popup window
which will close close automatically after specified time, how do I
create it give me a basic idea.

Thanks and Regards
Kiran

 

[Bob Phillips]

See http://www.xldynamic.com/source/xld.xlFAQ0007.html

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Hi,

Use OnTime function:
'place this code behind userform1
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:02"), "CloseMsg"
End Sub

'place this code behind standard module:
Sub CloseMsg()
Unload UserForm1
End Sub

then run UserForm1 will close in 2 second after activate