Hide Specific Sheets and Change Active

[RandyD123]

Hi all,

What I am looking to do is put a macro button on my active sheet (PT Summary) that will hide that sheet and one other called (Sheet1) and then have a different sheet become the active one (ST Sum PM). Not sure how to go about that or if its possible?

Thank you for any help

 

[Joe4]

You can get most of the code you need for this simply by using the Macro Recorder and record yourself performing these steps manually.

Here is what the cleaned up code will look like:

Sub MyHideSheetMacro()

'   Make sure "ST Sum PM" sheet is visible and select it
    Sheets("ST Sum PM").Visible = True
    Sheets("ST Sum PM").Select
    
'   Hide other two sheets
    Sheets("Sheet1").Visible = False
    Sheets("PT Summary").Visible = False

End Sub

 

[RandyD123]

You can get most of the code you need for this simply by using the Macro Recorder and record yourself performing these steps manually.

Here is what the cleaned up code will look like:

Sub MyHideSheetMacro()

'   Make sure "ST Sum PM" sheet is visible and select it
    Sheets("ST Sum PM").Visible = True
    Sheets("ST Sum PM").Select
   
'   Hide other two sheets
    Sheets("Sheet1").Visible = False
    Sheets("PT Summary").Visible = False

End Sub

It errors out right away. Pop up saying "Reference must be to a macro sheet" And on another note, this button MUST be on my "ACTIVE SHEET" which is one of the two that will become hidden and make another one active.

 

[Joe4]

Worked perfectly for me when I tested it out.
What is the name of the module you have placed this code in?
It should be placed in a General module, and NOT one of the Sheet modules or the ThisWorkbook module.

Also, I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[RandyD123]

You can get most of the code you need for this simply by using the Macro Recorder and record yourself performing these steps manually.

Here is what the cleaned up code will look like:

Sub MyHideSheetMacro()

'   Make sure "ST Sum PM" sheet is visible and select it
    Sheets("ST Sum PM").Visible = True
    Sheets("ST Sum PM").Select
   
'   Hide other two sheets
    Sheets("Sheet1").Visible = False
    Sheets("PT Summary").Visible = False

End Sub

Ok got it working but the code ended up looking like this:

Sub Macro1()
'
' Macro1 Macro
'
'
    Sheets(Array("Checkpoint Summary", "Sheet1")).Select
    Sheets("Checkpoint Summary").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Shift Summary PM").Select
    Range("A16:K21").Select
End Sub

Thank you anyway for try to help me...

 

[Joe4]

It looks like the issue is that the sheet names you gave in your original post were not correct!
Since we do not have access to your workbook, we can only program off the information you provide us.