uppercase to lowercase

M

Mammoth

How do you convert uppercase copy to lowercase copy in an entire excel
spreadsheet?
 
N

Norman Jones

Hi Mammoth,

Try the following macro:

Sub ConvertToLowerCase()
Dim rCell As Range
Dim sh As Worksheet

Set sh = Sheets("Sheet1") '<<==== CHANGE
On Error Resume Next
For Each rCell In sh.Cells.SpecialCells(xlCellTypeConstants, 2)
rCell.Value = LCase(rCell.Value)
Next rCell
On Error GoTo 0

End Sub

Change Sheet1 to the required sheet name.

If you are new to macros, see David McRitchies notes at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
N

Norman Jones

Hi David,
You could use activesheet
instead of sht, and then the macro would be generic (use on any
sheet without modifying the macro).

Agreed - where the sheet is the active sheet or where it is convenient to
activate the requisite sheet. However, If I had used ActiveSheet (as I
freqently do), I might still have appended the <<=== CHANGE comment, to
allow for use on a non-active sheet.

As for the link to your case procedures page, it is a good one and my posts
frequently make reference to your site.


---
Regards,
Norman



David McRitchie said:
Hi Norman,
Not sure why you modified a macro to do an entire workbook
to do a single specified worksheet. You could use activesheet
instead of sht, and then the macro would be generic (use on any
sheet without modifying the macro).
http://www.mvps.org/dmcritchie/excel/proper.htm#lower
---
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
 
Top