Copy the following macro:

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


"Bill Carpenter" wrote:

Each month I receive a spreadsheet approx 3000 lines long. A column is the
"city" name. It downloads all different ways. Some all CAPS some case
sensitive some all lower case. Each month I correct each city manually
typing it correctly. Is there a way I can highlight the column and do this
all at once, so fror example it would convert to San Francisco? This is
taking much to long the manual way. Thanks for any tips or help.