set workbook close...

[asyamonique]

Sub close_me()
ThisWorkbook.Close Savechanges:=True
End Sub
 
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:10:00"), "close_Me"
End Sub

Good Day,
Currently i have the given code above for to close workbook itself within 10min.
Is it possible to set a timer from 10 sec. to countdown before closing the file?
Many Thanks,

 

[prajul89]

how do you want the count down to be.

 

[prajul89]

Sub close_me()
ThisWorkbook.Close Savechanges:=True
End Sub


Sub close1_me()
MsgBox "10 Sec before Workbook closes"
Application.OnTime Now + TimeValue("00:00:10"), "close_Me"
End Sub

 
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:09:50"), "close1_Me"
End Sub

would this help!!!!

 

[asyamonique]

Thanks Parajul,
Thats greate.!!