Where is the appointment date ?
In a workbook ?
Assuming you have a suitable userform with a label:

Private Sub Workbook_Open()
Dim AppointDate As Date

AppointDate = Worksheets(1).Range("A1")

If DateDiff("d", Date, AppointDate) < 2.5 Then
With UserForm1
.Label1.Caption = "You have an appointment on:" & vbNewLine &
Format(AppointDate, "Long date")
.Show vbModeless
End With
End If
End Sub

NickHK

"Leeo" wrote in message
...
I want to set up a reminder in excel, this reminder must pop up 2 days
before
my appointment.

I know you can do this in outlook but i was wondering if it is possible in
excel?