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