Be careful with this macro.

If any cells in the selection contain formulas they will be wiped out and
converted to values only.


Gord

On Tue, 3 Mar 2009 08:02:02 -0800, Gary''s Student
wrote:

Select the cells you want to change and run this little macro:

Sub properr()
For Each r In Selection
r.Value = Application.WorksheetFunction.Proper(r.Value)
Next
End Sub