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

Pls post only once. See other post for answer

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

'***PROGRAM START*******
Sub ChangeFromUpperToLowerCase()
Dim cell As Range
Sheets("Sheet1").Select
Range("A1").Select
Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Select

For Each cell In Selection
If Not cell.HasFormula Then
cell.Value = LCase(cell.Value)
End If
Next cell
End Sub
'***PROGRAM END*******


Gord Dibben MS Excel MVP

On Tue, 25 Apr 2006 10:19:02 -0700, 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.
Maperralia