Prev: Web pop up
Next: Move data between ListBoxes
From: ordnance1 on 30 May 2010 23:22
Good news

That did not work,

But I did solve it. While the Call StopTimer worked great if you manually
closed the workbook (but not when the WorkBookClose timer closed the
workbook) I found that I had to add Call StopTimer to Module1. I am sorry I
had not included all of Module1. I was trying to reduce the size of the post
and thought they missing code was not relevant.

So thank you for your help and I hope my omission did not cause you to much
extra work.



Module1

Public bSELCTIONCHANGE As Boolean
Public Cancel As Boolean

'Code for Closing Workbook
Public Const NUM_MINUTES = 2 'Time interval for closing the workbook(in
minutes)
Public RunWhenClose As Double

' Code for the Data Update Timer
Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated
data from Calendar (in seconds)
Public Const cRunWhat = "TheSub" ' the name of the procedure to run
Public RunWhen 'As Date

'Code for Splash Screen Timer
Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen
(in minutes)
Public RunWhenSplash As Double

Public Sub ShowMySplash()
ClosingSplashScreen.Show
End Sub

Public Sub SaveAndClose()

If ThisWorkbook.ReadOnly = False Then
Call StopTimer
ThisWorkbook.Close True 'True causes the file to save when closed
End If

If ThisWorkbook.ReadOnly = True Then
Call StopTimer
ThisWorkbook.Close False 'False causes the file not to save when closed
End If

End Sub


First  |  Prev  | 
Pages: 1 2 3
Prev: Web pop up
Next: Move data between ListBoxes