software

hello again

this problem im being told has no simple solution but im going to ask anyway
this database we just bought came all in CAPS, however this information
(including names, addresses, company names etc..) needs to be in the correct
case for mailing purposes and formal letters

does anyone have a solution or a tip or trick or anything that is less
painful then retyping everything?

THANKS IN ADVANCE!!!

Use the PROPER() function.

If the string quot;ALL CAPSquot; was located in cell A1, =PROPER(A1) will output
quot;All Capsquot;--
Regards,
Davequot;Miss Dedlyquot; wrote:

gt; hello again
gt;
gt; this problem im being told has no simple solution but im going to ask anyway
gt; this database we just bought came all in CAPS, however this information
gt; (including names, addresses, company names etc..) needs to be in the correct
gt; case for mailing purposes and formal letters
gt;
gt; does anyone have a solution or a tip or trick or anything that is less
gt; painful then retyping everything?
gt;
gt; THANKS IN ADVANCE!!!

Hi Miss Dedly

Look here

www.mvps.org/dmcritchie/excel/proper.htm
Or
www.cpearson.com/excel/case.htmHere are some Macro's for changing text cells in the selection

Sub Uppercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address amp; quot;,quot; amp; Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = UCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End SubSub Lowercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address amp; quot;,quot; amp; Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = LCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End SubSub Propercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address amp; quot;,quot; amp; Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = StrConv(cel.Value, vbProperCase)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub--
Regards Ron de Bruin
www.rondebruin.nlquot;Miss Dedlyquot; gt; wrote in message ...
gt; hello again
gt;
gt; this problem im being told has no simple solution but im going to ask anyway
gt; this database we just bought came all in CAPS, however this information
gt; (including names, addresses, company names etc..) needs to be in the correct
gt; case for mailing purposes and formal letters
gt;
gt; does anyone have a solution or a tip or trick or anything that is less
gt; painful then retyping everything?
gt;
gt; THANKS IN ADVANCE!!!