How do I change font case?

  • Thread starter Thread starter Liz
  • Start date Start date
L

Liz

I need to change some mixed upper and lower case address
information to all upper, or proper case from time to
time. This is simply a menu click in Word, but Excel '97
is a syntax puzzle to me.

Am I overcomplicating this or simply missing something?

Help!

Thanks.
 
If your addresses are in a1,a2,a3 etc. In b1 type the
formula =upper(a1) this changes everything to all
uppercase. If you want proper type =proper(a1) and this
will do it for you.

Hope this helps!
Jennifer
 
Liz, if you want a macro here is one by Ivan F Moala, if you put it in your
personal workbook you can use it in all your workbooks

Sub TextConvert()
'By Ivan F Moala
'will change the text that you have selected,
'if no text or one cell 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 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
 
Back
Top