Create a macro named Upper_Case any time you need to change case select the
cells and run the macro.

Insert the following code in the sub routine:

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


"formhelp" wrote:

In Word I know that we can change the font of an entire document from
lowercase to uppercase without having to re-type the document...is that
possible in Excel?