Lower case
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 |
Lower case
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 |
Lower case
'***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 |
All times are GMT +1. The time now is 08:09 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com