ActiveX Toggle Workbook
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
|