How do I capitalize the first letter of multiple cells?

[Guest]

I'm trying to clean a mailing list (1000+ rows), but the capitalization of
the cells containing name, salutation etcetera is variable. How can I ensure
that the contents of all cells start with a capital letter?

 

[Otto Moehrbach]

Let's say that your names are in Column A starting with A2.
Find a blank column to the right of all your data, say Column H.
In H2, type "=Proper(A2)" without the quotes.
Drag that formula down as far as the names in Column A go.
Click Edit - Copy.
Select A2.
Click Edit - Paste Special - Values.
Click OK.
Delete Column H.
Done.
HTH Otto

 

[Guest]

Otto - that is superb - you've just saved me about 2 days of work! Not a
function I've come across, but very easy to apply.

- Dominic

 

[Guest]

Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

End Sub

 

[Guest]

Otto,

Thank you soooooo much. This was great.

Jim

 

[Adam Birken]

Otto,

You ROCK!!!!!!!!!!!!!!!!!

Let's say that your names are in Column A starting with A2.
Find a blank column to the right of all your data, say Column H.
In H2, type "=Proper(A2)" without the quotes.
Drag that formula down as far as the names in Column A go.
Click Edit - Copy.
Select A2.
Click Edit - Paste Special - Values.
Click OK.
Delete Column H.
Done.
HTH Otto