All CAPS to Caps

[HeatherJ]

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

 

[cm]

if string is in A1:

=proper(A1)

 

[Gord Dibben]

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