Try copying the following code into a new module. Individually run them to
see what they do. to follow the loops, click anywhere within then module and
press F8 to watch the code advance line by line.


Sub ShIndex()
' all sheets are indexed. This gives the index number
For Each sh In Worksheets
MsgBox sh.Index
Next sh
End Sub


Sub ShName()
' This gives the sheet name
For Each sh In Worksheets
MsgBox sh.Name
Next sh
End Sub

Sub Shhide()
' this shows the Visible state of the sheets. -1 = visible 0 = not visible
For Each sh In Worksheets

MsgBox sh.Name & " " & sh.Visible

Next sh

End Sub

Sub ToggleShVisible()

For Each sh In Worksheets
If sh.Index < 1 Then ' You can't hide all sheets so, skip index 1
sh.Visible = Not sh.Visible 'the 'Not' reverses the current
visible setting when used this way
End If
Next sh

End Sub


"haitch2" wrote in
message ...

Hi

Im very inexperiance with VBA so please be gental Im trying
to learn

right i have a small bit of code conected to a macro to hide/show
worksheets when a check box is toggled.

Sub Macro1()

If Worksheets("2").Visible = True Then
Worksheets("2").Visible = False
If Worksheets("3").Visible = True Then
Worksheets("3").Visible = False
Else
Worksheets("2").Visible = True
Worksheets("3").Visible = True
End If

End Sub

It hides the sheets but i cant get them to reapear again.

i can get it to work for one sheet but not 2.

Thanks for any help


--
haitch2
------------------------------------------------------------------------
haitch2's Profile:
http://www.excelforum.com/member.php...o&userid=27677
View this thread: http://www.excelforum.com/showthread...hreadid=474940