Ake,
Not exactly what your problem is, but this works for me:
With Range("A20:E20")
.MergeCells = True
End With
ActiveWindow.SplitColumn = 4
ActiveWindow.FreezePanes = True
Columns("A:A").ColumnWidth = 10
Note, there is no .Select in this code.
NickHK
"Ake" <(E-Mail Removed)> wrote in message
news:9E7F8DF4-AE71-4972-A066-(E-Mail Removed)...
> "Tom Ogilvy" wrote:
>
> "had no problem selection A:A" - Well,I can also do that- but not
> programmatically.
>
> "Perhaps you have a row or more that has merged cells across A to E" -
Yes,
> you are quite right, this was it. Thanks a lot.
>
> So, I can indeed change the witdh of a single column if I do it by hand,
> even if there is a merged cell across the column.
>
> But I cannot change the width of that same single column if I try to do
that
> from within a macro. Then it always extends the selection to include all
> columns of the merged cells. If not a bug, it is at least an
inconsistency...
>
> So, the last half of the question still remains- how can I do this
> quick-and-dirty column width adjustment without having to know about all
> possible merged cells and unmerge/merge them back again, in the macro. (or
is
> there perhaps a quick-and-dirty way to do that too ;-)
>
> Humbly / Ake
>
|