We thought you wanted the text UPPERED as you typed it in but I see you have
a different need.

To change all pre-existing text to UPPER, run this macro on your selected
cells.

Sub Upper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = UCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord

On Mon, 02 Mar 2009 12:07:56 -0800, Michael Bean
wrote:

Gord-

Thannks, I understand now; it works on new text, but not on old text. I
was expecting it to execute the code on pre-existing text as well. (I
followed the instructions and pasted as described, I don't know about
activating the sheet, but it is doing what it's meant to do.)

I work with a database which exports an Excel address list file, and the
text needs to be changed to all caps before printing the labels. I had
to manually retype each field. This code now allows me to click each
field then click the text and it becomes all caps. Now if it could be
automated! I considered writing my own app to do it from the desktop,
but it would be best if it could be done right in Excel. Unfortunately,
I don't know much about VBA.

Michael

*** Sent via Developersdex http://www.developersdex.com ***