MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Case Changing

Posted by Tom on July 09, 1999 8:58 AM

I have a pretty big data collection project that folks
recently completed, but one collector did the whole
thing in UPPER CASE. Is there macro I can run to
change a sheet or workbook to Mixed Case?



Posted by Ivan Moala on July 09, 1999 5:37 PM

Tom try the following;

Sub Convert_UpperC()
'* This will convert ALL uppercase Text in *
'* a sheet to Lower case. *
'* Macro created 10-07-99 by Ivan F Moala *
Dim TextUCase
Dim UCaseCell As Range

Set TextUCase = Range("A1").SpecialCells(xlCellTypeConstants, 2)
For Each UCaseCell In TextUCase
ActiveCell = LCase(UCaseCell)
End Sub

NOTE: it will turn ALL upper case text on the
sheet to lowercase!
doing a selected range is alittle diff.