Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Reverse Caps Lock
Is there any way to reverse caps lock on an already created worksheet.
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Reverse Caps Lock
Amy, here is a macro that will do it,
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 2002 & 2003 "Amy" wrote in message ... Is there any way to reverse caps lock on an already created worksheet. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to lock a file (wholly or partly) | Excel Discussion (Misc queries) | |||
Pressing CAPS LOCK show me Activity Panel | Excel Discussion (Misc queries) | |||
How can I convert all Caps to first letter caps in Excel? | Excel Worksheet Functions | |||
How do I make some columns all caps and others proper? | Excel Discussion (Misc queries) | |||
excel sheet all caps and needs to be only the first letter caps.. | Excel Discussion (Misc queries) |