Change Case

[Larry Gerard]

Can any one tell me how to add change (text) case feature to the menu or
tool bar in excel 97

Thank You

Please send response to ny...@ix.netcom.com

[Bill Manville]

There is no such feature in Excel to my knowlege.
You could write a set of macros to do it.

Sub UpCase()
Dim R As Range
For Each R In Selection.Cells
If R.HasFormula Then
R.Formula = "=UPPER(" & Mid(R.Formula,2) & ")"
Else
R.Value = UCase(R.Value)
End If
Next
End Sub

Sub DownCase()
Dim R As Range
For Each R In Selection.Cells
If R.HasFormula Then
R.Formula = "=LOWER(" & Mid(R.Formula,2) & ")"
Else
R.Value = LCase(R.Value)
End If
Next
End Sub

Sub PropCase()
Dim R As Range
For Each R In Selection.Cells
If R.HasFormula Then
R.Formula = "=PROPER(" & Mid(R.Formula,2) & ")"
Else
R.Value = Application.Proper(R.Value)
End If
Next
End Sub

If you save the workbook in your XLSTART directory then it will be loaded
when you start Excel.

The simplest then would be to use the menu customiser to create a custom
toolbar and attach it to your workbook.

Bill Manville
MVP - Microsoft Excel
Oxford, England

Larry Gerard <NY...@ix.netcom.com> wrote in message
35D8CD...@ix.netcom.com...