Text to Speech for Range with value greater than 0

[johndrew]

I have data in Columns B,C and D
I would like to have it read the numbers back so I can check the accuracy of my entries
It should continue "reading" the numbers in Columns B, C and D until it reaches a cell which is less than 1

For Example:

B1 1, C1 18 1/2, D1 14 5/8
B2 10, C2 16, D2 12

That represent quantity,length and width.

 

[JoeMo]

Try this after you have selected a range of cells containing your dimensions:

Sub ReadTheDimensions()
Dim c As Range
For Each c In Selection
    If c.Value < 1 Then Exit Sub
    c.Speak
Next c
End Sub