Hide multiple sheets with a macro

[pagrender]

Hello everyone,

I'd like to alter some VB code to hide all the sheets not labeled "Goals". Basically, what I am trying to do is have a user run a macro, have Excel open the "Goals" tab, and hide all the other sheets in the workbook. Do I need to list all my other sheets, or can VB just hide all sheets and unhide the "Goals" sheet? Here is my current code:


Sub GoToGoals()
'
' GoToGoals Macro
'

'
Sheets("Goals").Select
Range("B6").Select
End Sub


Thanks everybody!

Pete

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim ws As Worksheet
    Worksheets("Goals").Visible = True
    For Each ws In Worksheets
        ws.Visible = ws.Name = "Goals"
    Next ws
End Sub

 

[pagrender]

Hi Andrew,

That worked like a charm! Thanks a lot!

Pete

 

[pagrender]

One more quick question:

Can you give me the code to unhide ALL sheets in a file?

Thanks!

 

[Andrew Poulsom]

Like this?

Sub Test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = True
    Next ws
End Sub

 

[pagrender]

That worked. Thanks again!

 

[sbaily]

hi

is there a way to do a similar process but to hide a group of rows instead with a sheet?

cheers

 

[Andrew Poulsom]

Like this?

Rows("4:7").EntireRow.Hidden = True

 

[sbaily]

thats great thanks