All Cap

[Denise]

Is there a way to change text in an Excel spreadsheet from
either lower case/initial case to ALL CAP??

 

[Paul B]

Denise, here is one way

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
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **

 

[Rob Phillips]

Hi Denise,

You could try the following:

=UPPER(text in quotations)

or

=UPPER(A1) A1 being cell location

Then paste special back to cell, choose values under this option.

Rob.

 

[David McRitchie]

Hi Denise,
If you want to change text constants in a selection see
http://www.mvps.org/dmcritchie/excel/proper.htm
using a macro.