今日の日付に該当するシート名に赤色を

質問

いつもお世話になります。
WIN7 EXCELL2010 です。

A1に「20140721」と記入しエンターキーを押すと下記のマクロでシート名が自動で「20140721」となるようにしています。
例えば今日(７月２１日)になったら自動で赤色にしていくつかあるシートの中で今日のシートを目指させたいのでご指導いただけませんでしょうか。

参考に
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub

是非ご協力をお願いします。

回答No.1

MackyNo1 · ベストアンサー

ＴｈｉｓＷｏｒｋＢｏｏｋに以下のコードを貼り付けてみてください。

Private Sub Workbook_Open()

Dim mySheet As Worksheet
For Each mySheet In Worksheets
mySheet.Tab.ColorIndex = 19
If mySheet.Name = Format(Now(), "yyyymmdd") Then
mySheet.Tab.ColorIndex = 3
End If
Next

End Sub

お礼

またもお世話になります。
さっそくご回答いただきありがとうございます。
本当にご協力感謝　感謝です。
上手くできました。
今後ともこれに懲りずまたご指導ください。