vbaで列幅について

いつもお世話になります。

OSは、WIN11 エクセルは、Office365　です。

下記の参考のコードで列幅を指定しています。
　　Range("G1").EntireColumn.ColumnWidth = 14

このコードでは何故か14番目のシートのみには実行されません。
なぜなのでしょうか。
ご指導いただけませんか。

参考
Sub シートセット()
Dim mySheet As Worksheet
For Each mySheet In Sheets(Array(5, 6, 7, 8, 9, 10, 11, 12, 13, 14))
mySheet.Range("I:M").EntireColumn.Hidden = True
mySheet.Range("F:F").EntireColumn.Hidden = True

Range("G1").EntireColumn.ColumnWidth = 14

mySheet.Range("H2").Interior.ColorIndex = 19
mySheet.Range("H2").NumberFormatLocal = "#,###"
For Each ws In Worksheets
mySheet.Select
Range("A1").Select
Next
Next mySheet
Sheets("シート一覧表").Select
End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/11/15 09:49

Sub シートセット()

Dim mySheet As Worksheet
For Each mySheet In Sheets(Array(5, 6, 7, 8, 9, 10, 11, 12, 13, 14))
mySheet.Select
Range("I:M").EntireColumn.Hidden = True
Range("F:F").EntireColumn.Hidden = True

Range("G1").EntireColumn.ColumnWidth = 14

Range("H2").Interior.ColorIndex = 19
Range("H2").NumberFormatLocal = "#,###"

Range("A1").Select

Next mySheet
Sheets("シート一覧表").Select
End Sub

とか？

＞Range("G1").EntireColumn.ColumnWidth = 14

14の時にSelectされているシートは１つ前の13のままだからじゃない？
未検証ですけど。

この回答へのお礼

ありがとうございます。

なるほどです。
上手くできました。

お礼日時：2022/11/15 10:19