- Dec 13, 2017
- Reaction score
Here is the code I currently have, but nothing happens.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("G19"), Target) Is Nothing Then Exit Sub Application.Speech.Speak "Please use MM/DD when entering data, the system changes the year. Text & Deletions are not approved entries.", SpeakAsync:=True End sub