Delete Hidden Columns

[bay_analyst]

I need to delete all the hidden columns within a worksheet using vba.

This is probably an easy one for all of you. I know I have seen the answer somewhere, but I'm unable to find it. I tried to figure it on my own with no luck.

Thanks in advance,

Darlene

[mdmackillop]

Hi,
Try the following
MD

Sub DelHidden()
For i = 1 To ActiveSheet.UsedRange.Columns.Count
    If Columns(i).Hidden = True Then
    Debug.Print i
        Columns(i).Delete
        i = i - 1
    End If
Next
End Sub

[bay_analyst]

Thanks MD, it works great!

Darlene