I want to delete the hidden columns with following scripts

Sub Macro7()
For i = 65 To 80
temp = Chr(i) & ":" & Chr(i)
Columns(temp).Select
bTEST = Selection.EntireColumn.Hidden
If bTEST = True Then
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next
End Sub

It can work when no mergence. But if D3:H3 cells are merged, and Colum
E is hidden, the loop goes to Columns("E:E"), the property feeds back i
still "False", in that case, the hidden column E can't be delet
correctly.

Pls help out, ^_^

seang

--
Message posted from http://www.ExcelForum.com

Don't use merged cells ... that's the best advice I can give you.

In this particular case, you can probably solve your problem by skipping the
Select step and using Columns(temp) instead of Selection in the next two
steps.

--

Vasant

"seangu " wrote in message
...
I want to delete the hidden columns with following scripts

Sub Macro7()
For i = 65 To 80
temp = Chr(i) & ":" & Chr(i)
Columns(temp).Select
bTEST = Selection.EntireColumn.Hidden
If bTEST = True Then
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next
End Sub

It can work when no mergence. But if D3:H3 cells are merged, and Column
E is hidden, the loop goes to Columns("E:E"), the property feeds back is
still "False", in that case, the hidden column E can't be delete
correctly.

Pls help out, ^_^

seangu


---
Message posted from http://www.ExcelForum.com/

thank you!
As you said, the problem is the selection.
Right now, i have change to column(temp).delete, it's working now.


---
Message posted from http://www.ExcelForum.com/