auto shutdown

[fry]

Hi All

I'm using the following code to automatically shut down excel when the sheet is finished with...

   Application.OnTime Now + TimeValue("00:00:10"), "close_workbook"
    
Sub close_workbook()
Application.Quit
End Sub

My question is...

Is there a way of showing the 10 second countdown timer in a dialog box???

Thanks all

 

[fry]

When I say dialog box I mean message box.....the type you see when you get shareware and a button counts down to zero then you can use it.....

Maybe this time I am getting too adventurous

 

[Legacy 68403]

i'm not sure if this will help you or not but you could use the status bar.

Sub Macro1()
Application.StatusBar = "10 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "9 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "8 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "7 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "6 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "5 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "4 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "3 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "2 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.StatusBar = "1 seconds remaining"
Application.Wait (Now + TimeValue("0:00:1"))

Application.OnTime Now + TimeValue("00:00:01"), "close_workbook"

End Sub
    
Sub close_workbook()
Application.Quit
Application.StatusBar = False

End Sub

 

[Jonmo1]

you might make that a little shorter with a loop

Sub Macro1() 
for i = 10 to 1 step -1

    Application.StatusBar = i & " seconds remaining" 
    Application.Wait (Now + TimeValue("0:00:1")) 

next i

Application.OnTime Now + TimeValue("00:00:01"), "close_workbook" 

End Sub 
    
Sub close_workbook() 
Application.Quit 
Application.StatusBar = False

End sub

 

[fry]

Thanks guys, I was rather looking for a message box timer if possible but your help is appreciated.

Jonmo I spent time last night doing exactly what you did sorting out another problem I had. I used macros to produce some code which I then experimented with so thanks for the tip!!

I didn't get to bed until after midnight cos I was coding........am I sad or what???