Visual Basic Trabalhando com Data Atual no VB

[Leo Esteves]

Bom dia a todos...

 

               Estou realizando uma progração de uma macro que necessito no Excel com caixa de alerta na entrada da planilha.

O que acontece é que, necessito, quando chegar a data de retorno ao meu cliente, o excel, via Caixa de Alerta, ou seja, ao abrir a planilha, me mostre os clientes daquele dia que devo entrar em contato.

 

Meu excel é o 2017, português.

 

Segue o código:

Private Sub Workbook_Open()
Plan1!("Contas").Select
If Worksheets.CountIf(Columns(E), System.Date) = 0 Then
MsgBox "Atenção!! Ligar para este cliente hoje."
End If
End Sub

 

Mais observações: Necessito que o código compare a data do sistema com a data de retorno e me informe os clientes que necessito entrar em contato. As colunas de retorno são 3: Data 1, Data 2 e Data 3. No excel são as colunas E, F e G respectivamente.

 

Obrigado desde já pessoal.