特定のシート見出しの色のシートを作業グループにする方法を教えてください

質問

特定のシート見出しの色のシートを作業グループにする方法を教えてください。

VBA初心者です。
シート見出しの色でシートを分類しています。
特定のシート見出しの色のシートを作業グループにして、削除や印刷をしたいのですが、
できるのでしょうか。

シートのタイトルはそれぞればらばらなので、シート名ではできません。
よろしくご教示ください。

回答No.1

n-jun · ベストアンサー

例えばシートの見出しの色が赤の場合。

Sub try()
Dim ws As Worksheet
Dim v As String

For Each ws In Worksheets
　　　　If ws.Tab.ColorIndex = 3 Then
　　　　　　　v = v & ws.Name & ","
　　　　End If
Next

If Len(v) = 0 Then Exit Sub
v = Left(v, Len(v) - 1)
Sheets(Split(v, ",")).Select
End Sub

と言う感じですか？

お礼

ありがとうございます。
早速やってみました。ばっちりできました。
感謝申し上げます。