This works in one fell swoop:

Dim r As Range
Set r = ActiveSheet.UsedRange
r.Value = Application.Proper(r.Value)



--
Tim Zych
SF, CA
"AGrozier" wrote in message
...
have a "database" of names and addresses completely in uppercase letters
and
need to format it with the PROPER function so I can use it to print
address
labels. No problem doing this for one cell, but have thousands of names
and
am wondering if there is a way to do this globally for a range of cells