I only want a "Date Recieved" message to be included only when there is actually a date value in the recieved column. If the recieved column is blank, then I don't want that particular "Date Recieved" line inlcuded in the message. How would this be done? This is what the code looks like currently:
Dim Found As Range
EmailTo = Worksheets("E-mail Sheet").Range("B26")
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
If IsEmpty(Found.Offset(, -2)) = False Then
If MsgBox(Range("A26").Value & vbNewLine & vbNewLine & "A file request has been sent on: " & Found.Offset(, -2).Value & vbNewLine & _
"Files were recieved on: " & Found.Offset(, -1).Value & vbNewLine & "See Current Clients page for more information" & vbNewLine & vbNewLine _
& "Do you want to continue?", vbYesNo) = vbNo Then
Exit Sub ' stop macro if user selects No
End If
End If
Bookmarks