Hi,

I've got an email macro that generates an email to a particular company from a dropdown selection. When an Email is sent, another macro button is clicked to record the date in a " Date Sent" column on another sheet for that particular company. I'm wondering if i can attach a data validation to the to Email macro that would generate a popup alert to the user when they attempt to send an email to a company if that company already has a date stamp recorded in the "Date Sent" in its respective row. Thanks in advance! Here's the email code: 
Sub Mail_workbook_Outlook_1()
    Dim OutApp As Object
    Dim OutMail As Object

    EmailTo = Worksheets("E-mail Sheet").Range("B26")

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

    On Error Resume Next
    With OutMail
        .To = Worksheets("E-mail Sheet").Range("B26")
        .CC = Worksheets("E-mail Sheet").Range("B19")
        .BCC = ""
        .Subject = "Updating Credit File - " & Worksheets("E-mail Sheet").Range("D26")
        .Body = "Dear " & Worksheets("E-mail Sheet").Range("C26") & "," & vbNewLine & vbNewLine & _
        "We are requesting the following information to bring your credit file up to date." & vbNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B2") _
        & Worksheets("E-mail Sheet").Range("C2") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B3") & Worksheets("E-mail Sheet").Range("C3") _
        & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B4") & Worksheets("E-mail Sheet").Range("C4") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B5") _
        & Worksheets("E-mail Sheet").Range("C5") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B6") _
        & Worksheets("E-mail Sheet").Range("C6") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B7") _
        & Worksheets("E-mail Sheet").Range("C7") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B8") _
        & Worksheets("E-mail Sheet").Range("C8") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B9") _
        & Worksheets("E-mail Sheet").Range("C9") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B10") _
        & Worksheets("E-mail Sheet").Range("C10") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B11") _
        & Worksheets("E-mail Sheet").Range("C11") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B12") _
        & Worksheets("E-mail Sheet").Range("C12") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B13") _
        & Worksheets("E-mail Sheet").Range("C13") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B14") _
        & Worksheets("E-mail Sheet").Range("C14") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B15") _
        & Worksheets("E-mail Sheet").Range("C15") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B16") _
        & Worksheets("E-mail Sheet").Range("C16") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("B17") _
        & Worksheets("E-mail Sheet").Range("C17") & vbNewLine & vbNewLine & "If possible please provide us this information by " & Worksheets("E-mail Sheet").Range("A2") _
        & vbNewLine & vbNewLine & "If you have any questions please contact " & Worksheets("E-mail Sheet").Range("A19") & "at " & Worksheets("E-mail Sheet").Range("C19") _
        & vbNewLine & vbNewLine & "Sincerely," & vbNewLine & vbNewLine & "'Name'" & vbNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("A44") & vNewLine & vbNewLine _
        & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("A45") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("A46") & vNewLine & vbNewLine & Worksheets("E-mail Sheet").Range("A47")
        
        

         

        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
And this is the Date Stamp Code:

Sub Sent_Button_Click()
    Dim Found As Range
    
    Set Found = Sheets("Current Clients").Columns("C").Find(What:=Sheets("E-mail Sheet").Range("A26").Value, _
                                                   LookIn:=xlValues, _
                                                   LookAt:=xlWhole, _
                                                   SearchOrder:=xlByRows, _
                                                   SearchDirection:=xlNext, _
                                                   MatchCase:=False)
                                               
    If Not Found Is Nothing Then
        Found.Offset(, -1).Value = Date
    Else
        MsgBox "Company: " & Sheets("Sheet1").Range("A26").Value, , "No Match Found"
    End If