Hi Gregory!
For all future entries just press Caps Lock
For existing entries here's some code from David McRitchie.
Sub Upper_Case()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Cell as Range
On Error Resume Next 'In case no cells in selection
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
Cell.Formula = UCase(Cell.Formula)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Select the range that you want to apply this to and run the
subroutine.
But I can't recommend use of all upper case as it is more difficult to
read especially if your first language isn't the one used.
For more text changing code see:
http://www.mvps.org/dmcritchie/excel/proper.htm#upper
--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
Gregory said:
How do you change the font to all capitals all at once in a
workbook?
