Tab Hiding

[5pds]

Hi there i have MANY tabs in my workbook and i would like to hide most of them. Is there a quick way of doing this or do i have to go throught each worksheets properties and do it manually.

Paul

 

[dave3009]

It's fairly easy say you just want to keep a sheet called Sheet 1 visible, use this macro

Sub hideall()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Sheet1" Then GoTo 0
    ws.Visible = xlSheetHidden
0
Next ws
End Sub

 

[5pds]

Cheers Dave!

 

[5pds]

sorry

but where to i put the code. Will this make the sheet invisable when i open the spreadsheet in the first instance?

Cheers

 

[dave3009]

Hi

Press Alt & F11 this will open the VBE, right click your project (you will see it on the left) and choose>>Insert>>Module and paste the code in, Press F5 and every sheet apart from the one named Sheet1 (please change to suit) will be hidden until you make them visible again.

HTH


Dave

 

[5pds]

Done

Thanks again Dave