making all text into uppercase

[Jennifer]

i have rows in an excel workseet that there is some uppercase words and some
lowercase words, and i need to make them all uppercase. I was told the only
way to do this is to cut and paste it into word, and then re cut and paste it
back into excel after making it all caps. I know this is not true, and i know
that there is a way to do it in excel and it shouldnt be this hard for me as
i went to school for it. but i cant figure it out. Can someone please help
me. Thanks!

Jenn

 

[Dave O]

This formula should do it:
=UPPER(a1)
....converts any letters to upper case.

Dave O
Eschew obfuscation

 

[Marcelo]

=Proper(a1) will change the first letter to Uper case.
=UPPER(a1) will change all leters

a1 = making

b1=proper(a1) will return - Making
b1 =upper(a1) will return - MAKING

hth

--
regards from Brazil
Thanks in advance for your feedback.
Marcelo



"Jennifer" escreveu:

 

[Mike H]

Right click your sheet tab, view code and psate this in and run it

Sub stance()
For Each c In ActiveSheet.UsedRange
c.Formula = UCase(c.Formula)
Next c
End Sub

Mike

 

[Joel]

Use the =Upper() function. If your data is in columns A to E put in column F
(cell F1) the formula =Upper(A1) and copy the formula to columns G to J and
down the number of rows you require. Then copy columns F to J back to
columns A to E using Pastespecial - Values to remove the formula.

 

[AndyC812]

The only way I know is to use the UPPER function. =UPPER(A1) changes the
text in cell A1 to all CAPS.

 

[Gord Dibben]

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


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


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


Gord Dibben MS Excel MVP