VBA to hide sheets

[karthik_kaliappan]

Hi,

Sub Hideall()

Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub

i wrote a simple macro to hide couple sheets leaving the first sheet, but i was looking for a macro which would probably hide all the sheets leaving the fisrt one, but was kind off confused what coding should i give. Could any one help me with this please?

Rgds,
karthik.

 

[Datsmart]

Sub HideAll()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Visible = False
        End If
    Next ws
End Sub

This code hides all but "Sheet1".

 

[karthik_kaliappan]

Thanks a lot........is there a code for to unhide all the hiden sheets??

thanks in adavce!!

 

[Datsmart]

Yes, just change "False" to "True" in the code.

 

[karthik_kaliappan]

oh! that was pretty cool...thanks a lot for all your help.

 

[avi_ram25]

Hi guys
i'm new to Mr Excel, please do not mind if im doing something wrong.

i'm currently working on a financial model, whereby i will have my "income statement" sheet, balance sheet" sheet and the "cash flow" sheet. each of these sheets will have their respective sets of assumption sheets.

basically what i want is that i have a major sheet (Summary Sheet) which shows 3 buttons and each one will open the main sheet and its respective assumption sheets. also, in each of the income statement, balance sheet and cash flow sheets, there should be a macro to enable me to close everything and get back to the main sheet (summary sheet)

great if you guys could help me write the code!

thanks!