Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:B1000")) Is Nothing Then
If Target <> "" Then Application.Speech.Speak Range(Target.Address)
End If
Fin:
End Sub