Hi

posted by Bob Phillips in response to a similar question earlier tonight ...
this code
----
Sub changecase()
For Each cell In Activesheet.UsedRange
If Not IsNumeric(cell.Value) Then
cell.Value = UCase(cell.Value)
End If
Next cell
End sub
---

to use, right mouse click on the sheet tab and choose view code on the left
hand side of the VBE window you should be able to see your workbook's name
(in bold & brackets) .. if not, choose view / project explorer ... then
choose insert / module - a piece of white paper should appear on the right,
copy & paste the code in there and then use alt & F11 to return to your
workbook, go to the sheet with your data, click in a cell .. choose tools /
macro / macros and click on changecase and then click on RUN.

PS it is always a good idea to do this on a copy of your workbook just in
case.

--
Cheers
JulieD
check out www.hcts.net.au/tipsandtricks.htm
....well i'm working on it anyway
"S. Avila" <S. wrote in message
...
I have 450 rows of text that needs to be converted to uppercase. Any ideas
on how I do this without retyping the whole sheet?