VBAでのシートの色が

質問

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

シートタブに該当月毎に色を付けたく下記のマクロを記述しています。
シートタブには半角で　「1 ～ 12」 の名前を付けています。

先月の　「8」 のシートタブは赤で色付けができていましたが今月(9)になると
「8 9」の両方のシートタブに赤が色付けされています。

この場合　「8」は無色で該当する月のシートタブのみに、今月で言うと「9」だけに色付けするには
マクロをどのようにすればいいかをご指導いただけませんでしょうか。

参考に

ThisWorkbook
Workbook Open　に記述

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = Month(Now) Then
sh.Tab.Color = 255 ' 赤

End If
Next
End Sub

回答No.2

tsubuyuki · ベストアンサー

Private Sub Workbook_Open()
Dim sh As Worksheet
　　　　For Each sh In Worksheets
　　　　　　　　If isnumeric(sh.Name) Then
　　　　　　　　　　　　sh.Tab.ColorIndex = xlNone
　　　　　　　　　　　　If sh.Name = Month(Now) Then
　　　　　　　　　　　　　　　　sh.Tab.Color = 255 ' 赤
　　　　　　　　　　　　End If
　　　　　　　　End If
　　　　Next
End Sub

お礼

試させていただきました。
8　～　9　に該当月が替わっても　8のシートタブの赤が消え　9のシートタブの赤が付き、
尚且つ1～12のシート以外のタブの色はそのままで私の思いのままです。

ありがとうございました。

回答No.1

soixante

For Each 文と、If sh.Name分の間に以下を入れてはどうでしょう。

sh.Tab.ColorIndex = xlNone

毎回すべてのシートタブを無色にして、
そのうえで、該当月を赤くする、という作業です。

それをしないと、今回のように月替わりの時に前月のタブが赤いまま残ってしまうでしょう。

お礼

御指導いただき誠に有難うございました。

補足

ご指導いただいたマクロを試しました。
その結果　8 のシートタブの赤色は消えて　9　シートタブには赤色が付きました。
有難うございました。

ただ、
1 ～　12 のシート以外に　「年間稼働率」「入力」「顧客名簿」「祭日」というシートが４つあって
これらのシートタブにも色付けしていたのものも消えてしまいす。

これらの４つのシートタブの色付けはそのままにして残したいのですが可能でしょうか。
可能ならば再度ご指導願えませんか