Macros 2

S

Sri Harsha

I want to record a macro which hides all the open sheets other than sheet 1.
Can some one tell me how to do that?
 
N

Nigel

Sub HideAll()
Dim wsX As Worksheet
With Worksheets
For Each wsX In Worksheets
If wsX.Name <> "Sheet1" Then wsX.Visible = xlSheetHidden
Next
End With
End Sub
 
B

Bob Phillips

With Activeworkbook

.Worksheets("Sheet1").Visible = xlSheetVisible
For Each sh In .Worksheets

If sh.Name <> "Sheet1" Then

sh.Visible = xlSheetHidden
End If
Next sh
End With
 
J

Jacob Skaria

Hi Harsha

Please try the below code.

If this helps click Yes
---------------
Jacob Skaria

Dim intSheets
For intSheets = 1 To ActiveWorkbook.Sheets.Count
If intSheets > 1 Then
ActiveWorkbook.Sheets(intSheets).Visible = False
End If
Next
 
C

Chip Pearson

Try something like

Sub AAA()
Dim N As Long
With ThisWorkbook.Worksheets
For N = 2 To .Count
.Item(N).Visible = False
Next N
End With
End Sub

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)
 
Top