Boas Tardes a todos
sou português comecei só agora a explorar o excel por isso podem ver sou muito noob ainda nestas lides
peço um pouco de paciência nas minhas questões pois podem para vocês parecerem simples mas para mim vao ser complicadas de certeza
obrigado a todos os que me vao ajudar
vou colocar o código que me esta a dar dor de cabeça se nao for para colocar aqui desculpem

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 Folha1.Cells(linha, 6) = "Alerta" Then
            texto = "Alerta ao " & Folha1.Cells(linha, 1) ' & "," & vbCrLf & vbCrLf & _
                    '"Analisar " & Folha1.Cells(linha, 7) & " Ter em Atenção " & _
                    'Folha1.Cells(linha, 2) & " foi concluída." & vbCrLf & _
                    '" Veja informações abaixo:" & vbCrLf & _
                    '"    Status: " & Folha1.Cells(linha, 6) & vbCrLf & _
                   ' "    Ação tomada: " & Folha1.Cells(linha, 5) & vbCrLf & vbCrLf & _
                    '"Atenciosamente," & vbCrLf & _
                   ' "Help Desk"
        End If

        With OutMail
            '.To = Folha1.Cells(linha, 1)
            .to = "eeeee@eee.pt"
            .CC = ""
            .BCC = ""
            .Subject = "Alertar "
            .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 que me esta a acontecer é o seguinte se na coluna F escrever a palavra "Alerta" é enviado um email
se a palavra "Alerta" aparecer por formula já nao envia email
o que pretendo e quando faltarem 5 dias para a data prevista seja automaticamente enviado um email para mim com os dados da respetiva linha
obrigado desde já
adiciona a folha excel para uma melhor