Colorare un cella in funzione della data

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mese As String
Dim mesi As Range
Set mesi = Worksheets("Foglio1").Range("a1:b12")
Application.ScreenUpdating = False
Call RipristinaColore
If Not Intersect(Target, Range("E5")) Is Nothing Then
    mese = Application.WorksheetFunction.VLookup(Month(Range("h5").Value), mesi, 2, False)
    Sheets(mese).Select
    ActiveSheet.Cells(1, Day(Worksheets("IMPOSTAZIONI").Range("h5").Value + 3)).Select
    ActiveCell.Interior.ColorIndex = 3
End If
Application.ScreenUpdating = True
Worksheets("IMPOSTAZIONI").Activate
End Sub

Sub RipristinaColore()
Dim i As Integer
Dim rng As Range
Dim cel As Range
For i = 1 To ThisWorkbook.Sheets.Count
Set rng = Sheets(i).Range("c1:ag1")
    For Each cel In rng
        If cel.Value = "lun" Or cel.Value = "mar" Or cel.Value = "mer" Or cel.Value = "gio" Or cel.Value = "ven" Then
            cel.Interior.ColorIndex = xlNone
        End If
    Next cel
Next i
End Sub