John, you can use a macro like this, select the range you want to change and
then run it

Sub MAKE_CAPS()
'select range and run this to change to all CAPS
Dim cel As Range
For Each cel In Intersect(Selection, _
ActiveSheet.UsedRange)
cel.Formula = UCase$(cel.Formula)
Next
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"John" wrote in message
...
I have a data sheet with a mix of upper and lower case text in various
fonts.
How do I change it to all upper case? Can change font & size ok. Thanks.
Regards John