If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
All Cap
Is there a way to change text in an Excel spreadsheet from
either lower case/initial case to ALL CAP?? |
#2
|
|||
|
|||
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 ** "Denise" wrote in message ... Is there a way to change text in an Excel spreadsheet from either lower case/initial case to ALL CAP?? |
#3
|
|||
|
|||
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. "Denise" wrote in message ... Is there a way to change text in an Excel spreadsheet from either lower case/initial case to ALL CAP?? |
#4
|
|||
|
|||
Hi Denise,
If you want to change text constants in a selection see http://www.mvps.org/dmcritchie/excel/proper.htm using a macro. --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Rob Phillips" wrote in message ... 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. "Denise" wrote in message ... Is there a way to change text in an Excel spreadsheet from either lower case/initial case to ALL CAP?? |
Thread Tools | |
Display Modes | |
|
|