Excel VBA - delete hidden column in mergence status

S

seangu

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
 
V

Vasant Nanavati

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.
 
S

seangu

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