Is it possible have a message ( visual or Audio ) when the Curser is place in a cell?

[FrancisM]

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

 

[AmjiBhai]

Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
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

 

[FrancisM]

Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
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

Thank you. I knew it was something very simple, that I was forgetting.

 

[FrancisM]

Thank you. I knew it was something very simple, that I was forgetting.

Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
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

I noticed one thing. When I tested the code it ran. When I tried to use it on another sheet it did not run. Any Ideas?

 

[AmjiBhai]

I noticed one thing. When I tested the code it ran. When I tried to use it on another sheet it did not run. Any Ideas?

Could be couple of things.... Foremost is... Let's replace the following line with the two given below...
IF Target.Address <> "$G$19" Then Exit Sub

Mytarget="$g$19"
If Target.Address <> ucase(Mytarget) Then Exit Sub