Excel VBAシートの色を一気に変える方法

シートを3つ選択し、タブの色を一括で変えようと思い、ネットで調べた方法を組み合わせたのですが、コンパイルエラーになります。（Tabが黄色にマークされます）


Sub 問題シートタブの色を３にする()

Sheets("問題1").Select False
Sheets("問題2").Select False
Sheets("問題3").Select False
ActiveWindow.SelectedSheets.Tab.ColorIndex = 3

End Sub

ActiveWindow.SelectedSheetsのあとに、Tab.ColorIndex = 3を続けてはいけないのでしょうか？

No.1 回答者： Qchan1962 回答日時： 2022/03/28 01:01

こんばんは

オブジェクトブラウザーで確認すると
Tab　は Worksheetメンバーで　Worksheets　、Sheets　のメンバーではないようなので　シートオブジェクトすべてに対してまとめて設定する事は出来ないようです。
WindowのメンバーであるSelectedSheetsはSheetsクラスなのでTabはありません。
ロジック的に出来ないと言う事になると思いますので
変えたいシートに対してシート名などでループ処理をするしかないようです。
Sub 問題シートタブの色を3にする()
Dim sh As Variant
For Each sh In Array("問題1", "問題2", "問題3")
Worksheets(sh).Tab.ColorIndex = 3
Next
End Sub
実行後にシートタグが選択されていて"問題3"シートがアクティブである必要がある場合は、Nextの後にシート選択コードを書く必要がありますね。