This probably should be a new thread, but I thought I'd go to the well once
more. I am using an ActiveX Togglebutton to hide/unhide rows of nonessential
information on various sheets in a workbook. The button is on a cover sheet
to the workbook. However, the program doesn't "see" all of the pages I would
like to omit from hiding. Only the first Totals* is ignored, not the others.
??
thanks
Scafidel

Private Sub ToggleButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Totals-*" Then
If ws.Name "Min*" Then
With ws.Rows("45:200")
If .Hidden = True Then
.Hidden = False
Else
.Hidden = True
End If
End With
End If
End If
Next ws
End Sub


"Scafidel" wrote:

Thanks for the quick reply.
Scafidel

"Gord Dibben" wrote:

Private Sub ToggleButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name "displayall" Then
With ws.Rows("45:200")
If .Hidden = True Then
.Hidden = False
Else
.Hidden = True
End If
End With
End If
Next ws
End Sub

"displayall" will be edited to your sheet name.

Gord


On Wed, 21 Feb 2007 12:42:02 -0800, Scafidel
wrote:

Thanks again, Gord. How can I omit a sheet (from this command) that I want
to display completely?
Scafidel

"Gord Dibben" wrote:

Private Sub ToggleButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.Rows("45:200")
If .Hidden = True Then
.Hidden = False
Else
.Hidden = True
End If
End With
Next ws
End Sub


Gord Dibben MS Excel MVP

On Wed, 21 Feb 2007 10:31:00 -0800, Scafidel
wrote:

OK. I am using this command to hide/unhide several rows of a sheet that have
nonessential information. As my workbook has many sheets, I would like to be
able to Hide/Unhide rows on ALL the sheets. I know I can copy the command for
each sheet, but there must be an easier way. If possible, by having a "cover
sheet" with a toggle to hide/unhide rows for the entire workbook. If not, is
there a way to include all sheets in the command?

Private Sub ToggleButton1_Click()
With Worksheets("34-01").Rows("45:200")
If .Hidden = True Then
.Hidden = False
Else
.Hidden = True
End If
End With
End Sub

Thanks
Scafidel