Either =PROPER(A1) copied down in a helper column or a macro to change in
place.

Select the range to change then run this macro.

Sub Proper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = Application.Proper(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 22 Dec 2009 06:51:01 -0800, HeatherJ
wrote:

I have a large worksheet with a contact list in all caps.
JOHN SMITH, AMERICA CORPORATION, 123 WALL STREET, NEW YORK

Is there a way to easily get to this?
John Smith, American Corporation, 123 Wall Street, New York

Thank you,
Heather