Without all those messy formulas and clean up after.

Sub Upper()
Dim Cell As Range
Dim rng As Range
Application.ScreenUpdating = False
Set rng = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeConstants))
For Each Cell In rng
Cell.Formula = UCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Wed, 2 Sep 2009 12:19:03 -0700, cmm-retired once <cmm-retired
wrote:

For the post office, bulk mail addresses are to be in caps. Date is entered
upper and lower case. For first class mail, we do not want to use all caps.
Can I convert the upper/lower case addresses to all upper case?