isabelle explained :
hi Steve,

Code:

 Sub Macro1()
 Dim ColumnsList()
 Dim x As Integer, i As Integer
 x = 0
 For i = 0 To 255 'or 16383  depend on ver.
      If Columns(i + 1).Hidden = True Then
      ReDim Preserve ColumnsList(x)
          ColumnsList(x) = i + 1
          Columns(i + 1).Hidden = False
          x = x + 1
      End If
 Next

 'your code

 For i = LBound(ColumnsList) To UBound(ColumnsList)
 Columns(ColumnsList(i)).Hidden = True
 Next
 End Sub

Why not make it non-version dependant?

x = 0
For i = 1 To ActiveSheet.Columns.Count
If Columns(i).Hidden Then
ReDim Preserve ColumnsList(x): ColumnsList(x) = i
Columns(i).Hidden = False: x = x + 1
End If
Next

then...

For i = LBound(ColumnsList) to UBound(ColumnsList)
Columns(ColumnsList(i + 1)).Hidden = True
Next

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc