Boa noite Betito,
Segue o código:
Sub data_venc()
Dim inicio, fim As Integer
Dim vencimento, hoje As Date
inicio = 6
fim = Planilha1.Range("H6:H1000000").Find(Empty).Row
hoje = Format(Now(), "DD/MM/YYYY")
While inicio < fim
vencimento = CDate(Planilha1.Cells(inicio, 8).Text)
If vencimento = hoje Then
Planilha1.Cells(inicio, 8).Font.Size = 18
Else
Planilha1.Cells(inicio, 8).Font.Size = 14
End If
inicio = inicio + 1
Wend
End Sub
Em algum momento, esse "Sub" terá que ser chamada com o comando abaixo:
Call data_venc()
Postado : 29/09/2022 10:17 pm