Delete Hidden Columns

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. :dunno

Thanks in advance,

Darlene

Hi,
Try the following
MD

Code:

---

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

---

Thanks MD, it works great!

Darlene :hi: