hiding all groups in a workbook

[xcdave]

I am using the following code to go through my workbook and collapse all the groups:

Sub HideRowsColumns()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Outline.ShowLevels RowLevels:=1
Sheets(i).Outline.ShowLevels ColumnLevels:=1

Next i

End Sub

The problem is that if my workbook contains sheets that are graphs, the code doesn't work.

What can I add to the code so that it skips any sheets that are graphs?

Thanks!

 

[Norie]

Untested but try this.

Sub HideRowsColumns()

Dim ws As Worksheet

For Each ws In Worksheets
     ws.Outline.ShowLevels RowLevels:=1
     ws.Outline.ShowLevels ColumnLevels:=1
Next ws

End Sub

 

[xcdave]

That works, but it takes over a minute to run the macro. I turned screen updating off, and it still took over 1 min. Any other ideas?