Hi

I have some code in the "Thisworkbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lastsheet As Long
lastsheet = Sheets.Count
For N = 2 To lastsheet
Sheets(N).Visible = False
Next
Me.Save
Me.Close

End Sub

This should hide , save and close the workbook once it has been closed.
Sometimes when the workbook is closed excel does not execute this code
and mearly just ask if you want to save and then just closes the
workbook without hiding the sheets.

Is there something I need to change in my code?

Thanks

John

First, I'd remove the me.close line. That's gonna happen already.

Second, I couldn't break your code to do what you experienced.

Third, I've always found it better to put this kind of stuff in the
workbook_open event. That way, the workbook doesn't have to be saved by the
user.

If they open the workbook, really screw it up, your code will save it when they
close the workbook. Maybe not what you or the user wants.



Woody1313 wrote:

Hi

I have some code in the "Thisworkbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lastsheet As Long
lastsheet = Sheets.Count
For N = 2 To lastsheet
Sheets(N).Visible = False
Next
Me.Save
Me.Close

End Sub

This should hide , save and close the workbook once it has been closed.
Sometimes when the workbook is closed excel does not execute this code
and mearly just ask if you want to save and then just closes the
workbook without hiding the sheets.

Is there something I need to change in my code?

Thanks

John

--

Dave Peterson