Sub ScheduleSpeak() Application.OnTime EarliestTime:=TimeValue("9:14 AM"), Procedure:="RemindMe" End Sub Sub RemindMe() Application.Speech.Speak Text:="meeting." End Sub