Olá pessoal, eu preciso de uma condição if que, quando chegar um dia determinado pelo usuário, o mesmo receberá um e-mail com algumas informações, o problema é que não consigo fazer que quando chegue está data especifica o e-mail seja enviado, alguém teria uma sugestão?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    linha = ActiveCell.Row - 1
    If Target.Address = "$F$" & linha Then

        If Plan4.Cells(linha, 6) = campo_datahoje  Then
            texto =
        End If

        With OutMail
            .To = Plan1.Cells(linha, 1)
            .CC = ""
            .BCC = ""
            .Subject = "Título do email"
            .Body = texto
            .Display   'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

o campo_datahoje recebe a data atual de célula do excel e o campo Plan4.Cells(linha, 6) é onde está a data que o usuário forneceu

Desde já agradeço