How do I capitalize the first letter of multiple cells?
 

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?

How do I capitalize the first letter of multiple cells?
 

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
"dominic_howden" wrote in message
...
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?

How do I capitalize the first letter of multiple cells?
 

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

"Otto Moehrbach" wrote:

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
"dominic_howden" wrote in message
...
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?

How do I capitalize the first letter of multiple cells?
 

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

"dominic_howden" wrote:

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?

How do I capitalize the first letter of multiple cells?
 

Otto,

Thank you soooooo much. This was great.

Jim

"Otto Moehrbach" wrote:

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
"dominic_howden" wrote in message
...
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?

How do I capitalize the first letter of multiple cells?
 

Otto,

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

"Otto Moehrbach" wrote:

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
"dominic_howden" wrote in message
...
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?