How Can I make Pop-Up Reminders Open Up With Excel

Hello Excel World.

I have a code below.

I'll like to modify the code, in two areas:

#1. Pop-up notification, ten days before, the person on, Cell F "Data" of Birth, Cell G: "Baptism Date" & Cell H: "Anniversary". And

#2 Pop-up on the same date.

How can I do that?

Thanks in advance.

Sub Member_Dates()
'Modified  1/26/2020  4:57:31 AM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Bd As String
Dim Bap As String
Dim Anv As String
Dim Lastrow As Long
Dim ans As Date
ans = Date
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow
    If Cells(i, "F").Value = ans Then Bd = Cells(i, "B").Value & "  " & Cells(i, "C").Value & "  Birthdate Is on " & Cells(i, "F").Value & vbNewLine & Bd
    If Cells(i, "G").Value = ans Then Bap = Cells(i, "B").Value & "  " & Cells(i, "C").Value & "  Baptism Is on " & Cells(i, "G").Value & vbNewLine & Bap
    If Cells(i, "H").Value = ans Then Anv = Cells(i, "B").Value & "  " & Cells(i, "C").Value & "  Anniversary Is on " & Cells(i, "H").Value & vbNewLine & Anv
Next
MsgBox Bd & vbNewLine & Bap & vbNewLine & Anv
Application.ScreenUpdating = True
End Sub

Hello

Please, it could be nice to have a file for example without any confidential data.

Possible ?

Regards

Hello. I am sorry for the late reply. Please view files below. Thanks in advance.

Hello

Thanks for the file

Try with the code modified herein

Sub Member_Dates()
'Modified  1/26/2020  4:57:31 AM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Bd As String, Bap As String, Anv As String
Dim Lastrow As Long
Dim ans As Date
ans = Date
'Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("MembersFirst")
    Lastrow = .ListObjects("Table2").DataBodyRange.Rows.Count + 1
For i = 2 To Lastrow
    If .Cells(i, "F").Value - 10 = ans Then Bd = .Cells(i, "B").Value & "  " & .Cells(i, "C").Value & "  Birthdate Is on " & .Cells(i, "F").Value & vbNewLine & Bd
    If .Cells(i, "G").Value - 10 = ans Then Bap = .Cells(i, "B").Value & "  " & .Cells(i, "C").Value & "  Baptism Is on " & .Cells(i, "G").Value & vbNewLine & Bap
    If .Cells(i, "H").Value - 10 = ans Then Anv = .Cells(i, "B").Value & "  " & .Cells(i, "C").Value & "  Anniversary Is on " & .Cells(i, "H").Value & vbNewLine & Anv
Next
MsgBox Bd & vbNewLine & Bap & vbNewLine & Anv
Application.ScreenUpdating = True
End Sub

Regards