Mudar a cor da linha conforme a data

Mudar a cor conforme a data


este cola em modulo

Sub Macro1()

Dim linha As Integer

linha = 2

    While Range("A" & linha & ":" & "E" & linha).Select And ActiveCell <> ""
       
        If Range("A" & linha) < Date Then
   
            With Selection.Interior
                .ThemeColor = xlThemeColorAccent1
            End With
           
         End If
       
            linha = linha + 1
   
    Wend
   
End Sub

Sub Macro2()

Dim linha As Integer

linha = 2

    While Range("A" & linha & ":" & "E" & linha).Select And ActiveCell <> ""
       
        If Range("A" & linha) = Date Then
   
            With Selection.Interior
                .ThemeColor = xlThemeColorAccent2
            End With
           
         End If
       
            linha = linha + 1
   
    Wend
   
End Sub

Sub Macro3()

Dim linha As Integer

linha = 2

    While Range("A" & linha & ":" & "E" & linha).Select And ActiveCell <> ""
       
        If Range("A" & linha) > Date Then
   
            With Selection.Interior
                .ThemeColor = xlThemeColorAccent3
            End With
           
         End If
       
            linha = linha + 1
   
    Wend
   
End Sub


----------------------------------------------------------------------------------------------------

este cola em esta pasta

Private Sub Workbook_Open()

Call Módulo1.Macro1
Call Módulo1.Macro2
Call Módulo1.Macro3

End Sub