Can you delete all hidden columns in an area in one move?

[Gizmofied]

I am wondering if it is possible in Excel to permanently delete all hidden
columns in an area of a worksheet with one move (without having to unhide
every column and then manually delete each column)?

[Jim Rech]

This might do it. Tested lightly<g>

Sub DelAllHiddenCols()
Dim Col As Range
Dim DelCols As Range
For Each Col In Rows(1).EntireColumn
If Col.Hidden Then
If DelCols Is Nothing Then
Set DelCols = Col
Else
Set DelCols = Union(DelCols, Col)
End If
End If
Next
If Not DelCols Is Nothing Then DelCols.Delete
End Sub


--
Jim
"Gizmofied" <Gizmofied@discussions.microsoft.com> wrote in message
news:C4ED19ED-C827-46BC-9ADE-37F089114DBB@microsoft.com...
|I am wondering if it is possible in Excel to permanently delete all hidden
| columns in an area of a worksheet with one move (without having to unhide
| every column and then manually delete each column)?

[Gizmofied]

Thank you - I will try this out.

"Jim Rech" wrote:

> This might do it. Tested lightly<g>
>
> Sub DelAllHiddenCols()
> Dim Col As Range
> Dim DelCols As Range
> For Each Col In Rows(1).EntireColumn
> If Col.Hidden Then
> If DelCols Is Nothing Then
> Set DelCols = Col
> Else
> Set DelCols = Union(DelCols, Col)
> End If
> End If
> Next
> If Not DelCols Is Nothing Then DelCols.Delete
> End Sub
>
>
> --
> Jim
> "Gizmofied" <Gizmofied@discussions.microsoft.com> wrote in message
> news:C4ED19ED-C827-46BC-9ADE-37F089114DBB@microsoft.com...
> |I am wondering if it is possible in Excel to permanently delete all hidden
> | columns in an area of a worksheet with one move (without having to unhide
> | every column and then manually delete each column)?
>
>
>