Need to hide sheets 3-10 when sheet 2 is active

[djl0525]

I have a sheet called Main Menu. When it is the active sheet I want all of the sheets after it (to it's right) to become hidden. Sometimes it will become the active sheet because a button was clicked. Sometimes the user will get there by simply selecting it. That probably doesn't matter. I just want that when it is active all sheets to it's right are hidden.

Thanks in advance,
DJ

 

[Barrie Davidson]

How about (pasted in the sheet's code):

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Index > ActiveSheet.Index Then
        ws.Visible = xlSheetHidden
    End If
Next ws

End Sub

Does this work for you?

 

[djl0525]

Hey Barrie. I hope you are doing well.

It didn't work. I copied the code for the sheet Main Menu and when I activate that sheet the others do not hide.

DJ

 

[Barrie Davidson]

DJ, where did you put this code? Did you put it in the worksheet (i.e., right click on the worksheet, select "View code", and paste the code in that window)?

 

[djl0525]

I swear I double checked it before I said it didn't work. Upon triple check, no, it was not on the right sheet. It's on the right sheet now and it works!

Thank you!!

DJ