| Home |
| Search |
| Today's Posts |
|
#11
Posted to microsoft.public.excel.misc
|
|||
|
|||
Proper Case
3 years.
"Nick Hodge" wrote: Wow Did you find every occurrence in the last 5 years! -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS web: www.nickhodge.co.uk blog (non-tech): www.nickhodge.co.uk/blog/ "PlayingToAudienceOfOne" m wrote in message ... Sub Change_Case() 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 "Roger Bell" wrote: I know that you can use the =Proper formula for changing case from all Capitals to Sentence. Is there a way that you can change the case from Capitals to Sentence for a range of cells? Thanks for any help |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I change from all caps to proper case? | Excel Discussion (Misc queries) | |||
| excel'03 how to convert a column from upper case to proper case | Excel Discussion (Misc queries) | |||
| Macro for proper case | Excel Discussion (Misc queries) | |||
| Excel: How do I change all upper case ss to proper case? | Excel Worksheet Functions | |||
| Changing Upper case to Proper Case | Excel Worksheet Functions | |||
Threaded Mode
