Hello Gorden
I am an absolute beginner to excel , what do I do with this ? Thanks Keith
"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Kez

Sub Lower_Case()
'David McRitchie, programming, 2003-03-07
Dim rng1 As Range, rng2 As Range, bigrange As Range
Dim Cell As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Set rng1 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeConstants))
Set rng2 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeFormulas))
On Error GoTo 0
If rng1 Is Nothing Then
Set bigrange = rng2
ElseIf rng2 Is Nothing Then
Set bigrange = rng1
Else
Set bigrange = Union(rng1, rng2)
End If
If bigrange Is Nothing Then
MsgBox "All cells in range are EMPTY"
GoTo done
End If
For Each Cell In bigrange
Cell.Formula = LCase(Cell.Formula)
Next Cell
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP

On Fri, 10 Dec 2004 17:06:20 -0000, "kez"
wrote:

I have 7000 addresses in my excel database, approximately 5000 are
uppercase
text! I need to change them to lower case? is there a quick way without me
having to edit them all individually? Thanks
"Harald Staff" wrote in message
.. .
If you have this in cell A1:
THIS IS MY TEXT
then enter this in cell B1:
=LOWER(A1)
and B1 will display
this is my text

If this is not what you want then please be more specific.

HTH. Best wishes Harald

"kez" skrev i melding
...
Please could you tell me how to do this? Thanks
"Harald Staff" wrote in message
...
You need a small macro, or a formula in another cell, like
=LOWER(A1)

HTH. Best wishes Harald

"kez" skrev i melding
...
How do I format LARGE CASE text to small case in excel 2002. Thanks
Keith