Kris, give this Marco a try
Sub TextConvert()
'By Ivan F Moala
'will change the text that you have selected,
'if no text is selected it will change the whole sheet
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
--
Paul B
Always backup your data before trying something new
Using Excel '97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
Quote:
> I have a spreadsheet for mailmerge purposes with enough
> fields to make retyping a challenge. What can I do to
> take the majority of the sheet from ALL CAPS to Normal
> Formatting? The problem is I think complicated by the
> fact that some fields are properly formatted. Thanks, in
> advance.
> Kris
CAPS to Caps