Sub SetToProper()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Proper(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!