unhiding / hiding sheets

[Larry Fitch]

I have created macros assigned to buttons that open and close individual
sheets. Here is an example -

Sheets("Pay Inflation - Biometrics").Visible = Not Sheets("Pay Inflation -
Biometrics").Visible

I have also created macros that are assigned to buttons that open an close
groups of sheets.
Here is an example -

Application.ScreenUpdating = False
Sheets("Statistics").Visible = Not Sheets("Statistics").Visible
Sheets("Direct Cost Savings Breakdown").Visible = Not Sheets("Direct
Cost Savings Breakdown").Visible
Sheets("Pay Inflation - Biometrics").Visible = Not Sheets("Pay Inflation
- Biometrics").Visible
Sheets("OT Reduction").Visible = Not Sheets("OT Reduction").Visible

The problem I have is that if I have opened a single sheet using the button
for that sheet (in the example at top it is the Pay Inflation - Biometrics
sheet) and I then select the button to open the group of sheets, the Pay
Inflation - Biometrics will close since it was opened by the previous macro..

What error checking or other conditional logic can I add so that if a sheet
is already visible it will not be hidden.. ??

 

[Bob Phillips]

Your whole code is a toggle concept, hide it if visible and vice versa. If
you change it to just making it visible if not visible, it will never get
hidden. So I am confused as to your overall objective.

 

[Larry Fitch]

Hi Bob -

You are correct in regards to the toggle concept..

What I am trying to figure out is how to prevent a sheet that has been
opened individually from being closed when a button assigned to a summary of
sheets that contain the same thing is selected..

 

[Bob Phillips]

Take that sheet out of the code in the summary sheet.

Or maybe this is what you want

Application.ScreenUpdating = False

With Sheets("Statistics")

.Visible = Not .Visible
End With

With Sheets("Direct Cost Savings Breakdown")

.Visible = Not .Visible
End With

With Sheets("Pay Inflation - Biometrics")

If .Visible <> xlSheetVisible Then

.Visible = Not .Visible
End If
End With

With Sheets("OT Reduction")

.Visible = Not .Visible
End With

 

[Larry Fitch]

Thanks Bob-

This worked...

If I can go back to the well one more time - is there a "global" command
that I can have that will do that contol for all the sheets in the summary
groups ??

 

[Bob Phillips]

Not sure what you mean there Larry.