Vba

Question

Bom dia Pessoal...

Estou com algumas duvidas em relação ao VBA... É que estou a usar um certo código para enviar e-mail automático, mas quando eu tenho um formatação condicional e quando muda automático essa mesma formatação o e-mail não é enviado automáticamente, a não ser que eu abra o ficheiro Excel e nessa célula carregar ENTER...

   Eu queira que isto tudo fosse automático mas não sei se é possível, ou seja, cheguei à conclusão que deria meter um código no Outlook para que ele à aquela hora abrir o ficheiro ver a formatação que alterou de um dia para o outro e enviar ou não um e-mail de alerta!

         Só que não sei como o fazer, será que me podem ajudar? Agradeço a vossa colaboração

O código que estou a usar de momento no Excel é o seguinte:

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 Plan1.Cells(linha, 6) = "DOC. CADUCADO" Then
            texto = "Sr. (a) " & Plan1.Cells(linha, 8) & "," & vbCrLf & vbCrLf & _
                    "O Documento com o Número: " & Plan1.Cells(linha, 7) & " expirou em " & _
                    Plan1.Cells(linha, 4) & " , por favor, ver esta situação o mais rápidamente possível." & vbCrLf & _
                    " Veja informações abaixo:" & vbCrLf & vbCrLf & _
                    "  FUNCIONÀRIO: " & Plan1.Cells(linha, 3) & vbCrLf & _
                    "    Estado: " & Plan1.Cells(linha, 6) & vbCrLf & _
                    "    Ação a Tomar: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _
                    "Atenciosamente," & vbCrLf & _
                    "TesteX"
        End If

        With OutMail
            .To = Plan1.Cells(linha, 1)
            .CC = ""
            .BCC = ""
            .Subject = "Documentos a Validar"
            .Body = texto
            .display
            .Send '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

           Se for possível me ajudar, estou à inteira disposição

Um Abraço