TTS in excel 2000 on OS: win2k pro

[apeoortje]

I have written a Macro so when it runs it reads the daily totals of a report using Text to speech.

I just the quick question is it posable to change the default male voice to a female one?!?

================================================

Application.ScreenUpdating = False

Workbooks.Add Template:= _
"filename.xls"

TDN = Day(Date)
dae = TDN + 4
TCR = Range("E" & dae).Value
TER = Range("S" & dae).Value
EIS = Range("X" & dae).Value

If TCR = 1 Then
UserForm1.TextToSpeech1.speak ("We have received " & TCR & "Call. ")
Else
UserForm1.TextToSpeech1.speak ("We have received " & TCR & "Calls. ")
End If

If TER = 1 Then
UserForm1.TextToSpeech1.speak ("And " & TER & "Email, so far today.")
Else
UserForm1.TextToSpeech1.speak ("And " & TER & "Emails, so far today.")
End If

If TER = EIS Then
UserForm1.TextToSpeech1.speak ("All have been handled in Service Level.")
Else
UserForm1.TextToSpeech1.speak (EIS & "Have been handled in Service Level.")
End If

ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True

End Sub