OK
Try this.
Please note that this code will forcefully save the workbook each time when it closes.Code:Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("info").Visible = True Sheets("summary").Visible = xlVeryHiddenEnd ThisWorkbook.Save End Sub




Reply With Quote
Bookmarks