Ориентация текста в ячейке при условии

[Trimbl]

Здравствуйте, ВСЕ!
Есть объедененная ячейка в которой текст ориентирован горизонтально, необходимо изменить ориентацию текста на вертикальную при условии, когда число видимых объедененных ячеек становиться меньше 3(в результате скрытия столбцов). Наивно пологал, что приведенный ниже код справится с задачей, но он видит скрытые столбцы. А, что делать не знаю.
Вырезать, вставлять, поворачивать, возвращать назад вырезанное -громоздко, а может быть есть другое решение? Спасибо за внимание.

With ActiveCell
If .MergeArea.Columns.Count < 3 Then
.Orientation = 90
.Interior.Color = RGB(255, 255, 0)
Else
.Interior.Color = RGB(135, 135, 137)
End If
End With

[SAS888]

1. В выбранном диапазоне, методом SpecialCells, нужно указать "видимые" ячейки.
2. При подсчете столбцов, будет посчитано количество столбцов ТОЛЬКО в непрерывном диапазоне, в котором находится активная ячейка. Так, например, если объединены 5 ячеек в строке и при этом скрыт 2-й столбец, то результат Columns.Count будет равен 1. Поэтому, считать нужно не столбцы, а ячейки.
3. Простой подсчет ячеек объединенного диапазона даст правильный результат только в том случае, если объединенные ячейки находятся в 1-ой строке. Если объединенная область содержит более 1-ой строки, то, естественно, количество ячеек нужно поделить на количество строк.
Т.е. Вам нужно строку

If .MergeArea.Columns.Count < 3 Then

заменить на

If .MergeArea.SpecialCells(xlCellTypeVisible).Cells.Count / .MergeArea.Rows.Count < 3 Then

И еще, для предотвращения возможных недоразумений, лучше предварительно проверять, принадлежит ли ячейка к объединенной области. Например, так:

If ActiveCell.MergeCells Then