Automatically close the Msg box button

[webmax]

Hi,

when i run the below macro it open the msg box as Hi and if i click the ok or enter button the msg box button disappears. i want a macro code to show Msg Box Hi for a two seconds and it would automatically close the Msg Box without Entering Ok or Enter button.

sub test()
Msgbox "Hi"
end sub

 

[shrivallabha]

This functionality isn't available in the standard VBA messagebox. However, it can be achieved by using Shell object. Have you searched for this?

 

[webmax]

no. what is shell object

 

[shrivallabha]

If you go to Visual Basic Editor | Tools | References then you should be able to locate the following reference:

Windows Script Host Object Model

Try the following code if you want an example of it.

Option Explicit
Public Sub CloseMessageBoxAfterInterval()
Const intSecondsToWait As Integer = 2
Dim wScript As Object: Set wScript = CreateObject("WScript.Shell")
wScript.Popup "Hi", intSecondsToWait, "TestMessage", vbOKOnly
End Sub

 

[SirJB7]

Hi, webmax!
Perhaps you want to give a look at this too:
http://chandoo.org/forum/threads/folders-files-matching.6312/
Check the user form handling method, it's displayed and automatically closed when job's done.
Regards!