VERY IMPORTANT - MACRO HELP

Posted by Paul G. on December 21, 2001 6:39 PM

I need a macro that after being run it will wait 20 seconds, then minimize the excel screen? Can anyone tell me how to do this? IT IS VERY IMPORTANT I NEED THIS ASAP!

Posted by Ivan F Moala on December 21, 2001 10:44 PM

Something like this may help;
Note: Minimises 20 secs

Sub myprocedure()
'Your preocedure to run here

'Then @ the end run this
starttimer
End Sub

Sub starttimer()
Application.OnTime Now + TimeSerial(0, 0, 20), "MinScr"
End Sub

Sub MinScr()
Application.WindowState = xlMinimized
End Sub

HTH

Ivan