Speak - Speech - Speak numbers individually

Excel reads acronyms as words and numbers like 12,345 as 12 thousand, three hundred forty five. Is there a method or macro that allows the characters to be read individually.
Thanks

Hi, Marvin

Thanks for the reply but not an option unfortunately. I've seen a bunch of videos on Youtube and experimented myself. Sometimes it does and sometimes it doesn't. I need it to play nice and be consistent and read all numbers individually, all the time.

Its weirdly inconsistent. I've tried multiple things. Different length numbers. Same numbers, different cells. In two different cells the same number will be spoken each way. Try it. Lol
I've even converted it to text. That didn't work either. I figure if it says it right in one place there's no reason that it shouldn't be able to say it right all the time.
Right? Lol

Its weirdly inconsistent. I've tried multiple things. Different length numbers. Same numbers, different cells. In two different cells the same number will be spoken each way. Try it. Lol
I've even converted it to text. That didn't work either. I figure if it says it right in one place there's no reason that it shouldn't be able to say it right all the time.
Right? Lol

Hopefully this will assist :

http://stackoverflow.com/questions/2...s-as-thousands

Thank you, Logit. But still the same issue when I ensure the numbers are formatted as Numbers and no seperator. I tried
123
12345 X
123456 X
1234567
The numbers with the X weren't spoken as individual numbers.

But Marvin was on to something when he suggested spaces between all the numbers. I thought I would have to do it manually or some other way that would make it too time consuming. But a few minutes ago I found code that works. I'd really like it to work on Active Sheet instead of Sheet 4 but I am leaving for work soon and don't have time to Google a solution.

That code is
[code]
Sub InsertSpace_for_Speaking_Numbers()
Dim Ws As Worksheet
Dim Rng As Range, Cell As Range
Dim i As Long
Dim Str As String
Set Ws = Worksheets("Sheet4")
On Error Resume Next
Set Rng = Ws.Cells.SpecialCells(xlConstants)
On Error GoTo 0
If Rng Is Nothing Then Exit Sub
For Each Cell In Rng
Str = ""
For i = 1 To Len(Cell)
Str = Str & " " & Mid(Cell, i, 1)
Next i
Cell = Trim(Str)
Next Cell
End Sub
[\code]

Apologies if I messed up the start and end [] above. No time to even find my notes to get the right entry.

So thank you Logit and Marvin. And if either of you could quickly adjust the code I'd be ever so grateful.

And while I am here - could I expand on this Speak issue?

Is there a way of modifying this code for a range - say, A1:A10?

[code]
Sub Button1_Click()

Dim myText As String

myText = Range("A1").Value

Application.Speech.Speak (myText)

End Sub
[\code]

Thanks so much gentlemen for your time. I would love to stay here and work on this but my boss wouldn't be happy. Have a great day.

One out of two. Done! Figured out how to modify the code for the first macro so that it works on selected cells instead of Worksheet 4. Off to the next one. Baby steps. Baby steps.