All CAPS to Caps

  • Thread starter Thread starter HeatherJ
  • Start date Start date
H

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
 
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
 
Back
Top