Problem with Before_Save Macro

  • Thread starter Thread starter Jay
  • Start date Start date
J

Jay

Hello All,
I am having a problem with the before_save macro:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For Each sh In Sheets
sh.Visible = xlSheetVeryHidden
Worksheets("Overview").Visible = True
Next sh
Next
End Sub

It does nothing when I save. The macro doesn't seem to run at all. If
anyone could help me on this, I would appreciate it.
Jason
 
Firtsly, it needs to be in ThisWorkbook code module.

Also, it is broken

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("Overview").Visible = xlSheetVisible
For Each sh In ThisWorkbook.Sheets
sh.Visible = xlSheetVeryHidden
Next sh
End Sub

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)
 
Bob,
I do have it in ThisWorkbook, and I attempted to fix it, and it still
doesn't work.
Jay
 
In the immediate window in the VBIDE type

Application.EnableEvents = True

and return.

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)
 
Back
Top