Lower case VBA

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

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
dguillett1@austin.rr.com
"maperalia" <maperalia@discussions.microsoft.com> wrote in message
news:5C5F630A-5E30-44A9-AB48-6BF0B931FC6F@microsoft.com...
> 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
>

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
> dguillett1@austin.rr.com
> "maperalia" <maperalia@discussions.microsoft.com> wrote in message
> news:5C5F630A-5E30-44A9-AB48-6BF0B931FC6F@microsoft.com...
> > 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
> >
>
>
>

glad to help

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"maperalia" <maperalia@discussions.microsoft.com> wrote in message
news:29E7F27D-D9F0-475A-81E2-3AF4F25BA15F@microsoft.com...
> 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
>> dguillett1@austin.rr.com
>> "maperalia" <maperalia@discussions.microsoft.com> wrote in message
>> news:5C5F630A-5E30-44A9-AB48-6BF0B931FC6F@microsoft.com...
>> > 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
>> >
>>
>>
>>

I would recommend agains the select myself you can do something like this...

Sub ChangeFromUpperToLowerCase()
Dim rngToChange as Range
Dim cell As Range

with sheets("Sheet1")
set rngToChange = .range(.Range("A1"), .cells(rows.count,
"A").end(xlUp))
end with
For Each cell In rngToChange
If Not cell.HasFormula Then
cell.Value = LCase(cell.Value)
End If
Next cell
End Sub

--
HTH...

Jim Thomlinson


"maperalia" wrote:

> 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
>

Jim;
Thanks very much it is working wonderfully!!!!
Maperalia

"Jim Thomlinson" wrote:

> I would recommend agains the select myself you can do something like this...
>
> Sub ChangeFromUpperToLowerCase()
> Dim rngToChange as Range
> Dim cell As Range
>
> with sheets("Sheet1")
> set rngToChange = .range(.Range("A1"), .cells(rows.count,
> "A").end(xlUp))
> end with
> For Each cell In rngToChange
> If Not cell.HasFormula Then
> cell.Value = LCase(cell.Value)
> End If
> Next cell
> End Sub
>
> --
> HTH...
>
> Jim Thomlinson
>
>
> "maperalia" wrote:
>
> > 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
> >