I have the code below that only runs when Run sub user form is used. The really strange thing is that it used to work.
I have checked everything, I could think of. Could you look at the code& see if I am missing something?
Private Sub Worksheet_Activate() Application.Speech.Speak "Please check the date & year of the meeting dates this month,!! correct as necessary", SpeakAsync:=True 'MsgBox "Please check the date & year of the meeting dates this month," & vbNewLine _ & vbNewLine & "correct as necessary!", vbInformation, "Vocational Services - OVR " & ActiveSheet.Name Application.Wait (Now + TimeValue("00:00:07")) End Sub