About Us

Don Guillett

glad to help

--
Don Guillett
SalesAid Software

"maperalia" wrote in message
...
Don Guillett;
Thanks very much it is working wonderfully!!!!
Maperalia

"Don Guillett" wrote:

this should work from anywhere in the workbook. Best NOT to use a whole
column.

Sub lowerit()
For Each c In Sheets("sheet1") _
..Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
c.Value = LCase(c)
Next c
End Sub
--
Don Guillett
SalesAid Software

"maperalia" wrote in message
...
How can can I adjust the program below to:
Sheets("Sheet1").Select
cell = Columns("A:A").Select

'***PROGRAM START*******
Sub ChangeFromUpperToLowerCase()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = LCase(cell.Value)
End If
Next cell
End Sub
'***PROGRAM END*******

Thanks in advance.
Maperalia

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing multiple cell text from lower case to upper case	Patti	Excel Discussion (Misc queries)	2	January 4th 08 08:35 PM
Change the text from lower case to upper case in an Excel work boo	dave01968	Excel Discussion (Misc queries)	2	December 9th 05 09:09 AM
How do I change a column in Excel from upper case to lower case?	Debbie Kennedy	Excel Worksheet Functions	3	May 2nd 05 06:57 PM
TURN LOWER CASE TO UPPER CASE IN EXCEL?	TommyG	Excel Worksheet Functions	2	March 31st 05 01:54 AM
How do I change existing text from lower case to upper case	CT Cameron	Excel Discussion (Misc queries)	2	November 30th 04 01:07 AM