Renaming Columns??

H

hippie

I wish that would help.

I work with the blind and they use a program called Jaws that will rea
to them what are in the cells. So instead of it saying, "A, 1 $400"
wish it could say" December Rent $400
 
T

tjtjjtjt

You can't rename the columns and rows. Can you make the program read
information stored in Row 1 and Column A, instead of the cell addresses?

tj
 
D

Dave Peterson

If you're using xl2002 or higher, you could have a macro that goes through the
range and reads the values:

Option Explicit
Sub testme()

Dim iCol As Long
Dim iRow As Long
Dim LastRow As Long
Dim LastCol As Long

On Error GoTo errHandler:
Application.EnableCancelKey = xlErrorHandler

With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
For iRow = 2 To LastRow
For iCol = 2 To LastCol
Application.Speech.Speak .Cells(iRow, "A").Text _
& " " & .Cells(1, iCol).Text _
& " " & .Cells(iRow, iCol).Text
Next iCol
Next iRow
End With

Exit Sub

errHandler:
'just quit

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Maybe you could adapt it to make it useful.
 
Top