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
Bookmarks