Como crear un macro para habilitar un botón de programación de un evento con una fecha tomada de una celda?

Tengo una base de datos en la que quiero poner un recordatorio con un botón para programar una alarma, tengo un código que conseguí:

Sub ProgramarAlarma()
Dim SetTime As String

SetDate = Hoja1.Range("A1").Text

Application.OnTime DateValue("28/09/2015"), "EjecutarAlarma"
MsgBox "Alarma Programada"
End Sub
Sub EjecutarAlarma()
MsgBox " hablar xxx"
End Sub
Lo que requiero para completar es:
Que pueda cuando presione el botón tome la fecha que se encuentra en la celda definida para la fecha y no tener que ingresar la fecha manualmente, por ejemplo A1 (15/09/2015), A2 (22/09/2015), etc, y que la programación de la alarma quede definida en esa fecha; y al momento de que se cumpla con la regla de la programación de la alarma, que el mensaje de texto muestre el nombre de la persona que se encuentra en la fila en la columna definida para el usuario, ejemplo D1 (juan perez), D2 (jose jose), etc. Y que el cuadre de texto diga "Hablar a juan perez", etc, y si es posible que mande un correo electrónico avisando de esto, si esto ya es mucho pedir, con sólo que me aparezca el nombre.