Method speak of object speech failed

Need some help -trying to run a simple speech macro and Im getting the following error.

Sub Speak()
Application.ScreenUpdating = False
Sheets("Test").Activate
Dim Lastrow As Long
Dim R1 As Range, R2 As Range, R3 As Range

With Sheet4      ' Change Sheet No. to suit
    For i = 8 To 8
        If .Range("J" & i).Value = .Range("K" & i).Value Or _
           .Range("J" & i).Value = .Range("L" & i).Value Or _
           .Range("K" & i).Value = .Range("L" & i).Value Then
    Application.Speech.Speak "You are not allowed to do that"
 
End If
    Next i
End With
Sheets("Test").Activate
Application.ScreenUpdating = True


End Sub

Rep for any help to solve above