Auto Closing of Spreadsheet

[Smithy2k7]

Hello,
How do I get a spreadsheet to close automatically after a pre-determined period of time. I have seen code that does this but if I have more than one spreadsheet open it closes down all the spreadsheets and not just the one with the code in.

Is it possible to get Excel to close down only the spreadsheet I need even if I am working in another spreadsheet?

TIA

 

[Joe4]

Can you post the code that you tried that closes down everything?
My guess is it uses "Application.Quit", which closes that session of Excel.
You probably want something like "ActiveWorkbook.Close" instead, which would just close the ActiveWorkbook.

 

[Smithy2k7]

Can you post the code that you tried that closes down everything?
My guess is it uses "Application.Quit", which closes that session of Excel.
You probably want something like "ActiveWorkbook.Close" instead, which would just close the ActiveWorkbook.

Hello,
The code that is in use is below

Sub closeWB()
If DateDiff("n", lastSelectionChange, Now) > 1 Then
ThisWorkbook.Close SaveChanges:=True
Else
Application.OnTime Now + TimeSerial(0, 1, 0), "closeWb"

End If
End Sub

 

[RoryA]

That code should not close all workbooks.

 

[Smithy2k7]

That code should not close all workbooks.

Thank you - so this should just close the work book that it is in?

 

[RoryA]

Yes. If all of them are closing, something else must be behind it.