エクセルのブックを開く度にシートの列幅を指定したいのですが・・・

稚拙な質問お許しください。
エクセルでブックを開いたときに、すでにシートの列幅が任意の幅になっているよう、VBAで「ThisWorkbook」というところに、
Private Sub Workbook_Open()
Sheet1.Columns("a:a").Select
Selection.ColumnWidth = 7
Sheet1.Columns("b:b").Select
Selection.ColumnWidth = 8
Sheet1.Columns("c:c").Select
Selection.ColumnWidth = 10
Sheet1.Columns("e:e").Select
end sub
といった感じで記述したのですが、「F8」キーで処理の過程をみながら追っていくとどうしても、Eの列を過ぎるとEの列だけでなくそれ以降の列も選択してしまい（シート上に表があるのですが、その表の1番最後の列までです。）、任意の幅に指定できないのですが、原因がよくわかりません。どなたか、お力添えください。

No.1 ベストアンサー 回答者： zabu-----n 回答日時： 2006/05/22 15:05

Ｅ列以降に結合セルがあるのではないかと思います

>Sheet1.Columns("a:a").Select
>Selection.ColumnWidth = 7
は
Sheet1.Columns("a:a").ColumnWidth = 7
と、まとめることが出来ます

この回答へのお礼

ご回答ありがとうございます。早速試したところzabu-----nさんのおっしゃるとおりでした。
また、記述の仕方についてもよく確認してみたところ多々無駄な記述が多いことにも気づくことができました。大変勉強になりました。本当にありがとうございました。

お礼日時：2006/05/22 16:18