Thread
:
Lower case VBA
View Single Post
#
2
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Lower case VBA
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett