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" wrote in message
...
"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