エクセル VBA シート見出し色の参照について

質問

エクセルVBAでブック内のシート見出し色が赤のものだけ全てを
印刷し、なければ、”印刷対象はありません”とメッセージを1回だけ出すマクロを作成したいのですが、どのようなモジュールを作成すればいいかわかりません。

教えていただけますでしょうか。

回答No.1

hana-hana3 · ベストアンサー

Sub sample()

Dim Ws As Worksheet
Dim flg As Boolean

flg = False
For Each Ws In Worksheets
If Ws.Tab.ColorIndex = 3 Then
Ws.PrintOut
flg = True
End If
Next

If flg = False Then MsgBox "印刷対象はありませんでした。"

End Sub

お礼

早々のご回答ありがとうございました。
hana-hana3さんのようにＦor　Each・・・Next構文で
作成していたのですが、メッセージを1回だけ出すという変数構築がわかりません
でした。

大変助かりました。ありがとうございました。