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

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 :hi: