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

Sub CHANGE_TO_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

"kristel" wrote in message
...
i can figure out how to change one cell to upper case but i hjave to
change
the whole document within excel into uppercase.