How to change cell data from all upper to title case

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to change several columns of data from all upper case to Title Case.
What formula should I use & How can I apply the formula to the data in each
cell?
 
Check out the Proper() function. It changes any case to title case,
and can be copied from cell to cell to apply the formula to your data.
 
Check out the Proper() function. It changes any case to title case and
you can copy it to a range of cells to apply it to your data.
 
You have other answers showing the use of the PROPER Function to act upon one
cell at a time.

If you want to change many cells at once you will need a macro.

Sub Proper_Case()
'David McRitchie, programming, 2003-03-07
Dim rng1 As Range, rng2 As Range, bigrange As Range
Dim Cell As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Set rng1 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeConstants))
Set rng2 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeFormulas))
On Error GoTo 0
If rng1 Is Nothing Then
Set bigrange = rng2
ElseIf rng2 Is Nothing Then
Set bigrange = rng1
Else
Set bigrange = Union(rng1, rng2)
End If
If bigrange Is Nothing Then
MsgBox "All cells in range are EMPTY"
GoTo done
End If
For Each Cell In bigrange
Cell.Formula = Application.Proper(Cell.Formula)
Next Cell
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top