Tengo una macro que me dice por voz según lo que diga una celda, la voz esta en ingles la quiero en español

Adjunto macro

Modulo 1

Sub textoavox2()
Application.Speech.Speak (Range("AD7")), True
Application.Speech.Speak (Range("AD8")), True

Igual hacia abajo , solo cambia la celda

End Sub

Ademas quisiera saber:

1.- Como queda el código, para el cambio de voz de ingles a español

2.- Como queda el código para que me revise no por celdas sino por un rango determinado