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.1

MarcoRossiItaly

前のご質問（参考 URL）と同一の内容で、二重投稿になってしまっています。こちらは締め切って、追加のご質問などがあるなら、前のご質問のページでやり取りしてください。

参考URL：

http://okwave.jp/qa/q8244718.html