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?

Thanks,

Tom

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
UCaseCell.Select
ActiveCell = LCase(UCaseCell)
Next
End Sub

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

Regards

Ivan