pfbear, here is one way, select your range and run this

Sub CAPS()
'select range and run this to change to all CAPS
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Intersect(Selection, _
ActiveSheet.UsedRange)
cel.Formula = UCase$(cel.Formula)
Next
Application.ScreenUpdating = True
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

"pfbear" wrote in message
...
I am modifying a very large spreadsheet and need all the text cells
capitalized. Short of re-typing all the information, is there a way to
capitalize the entire document at one time?