"Lower Case" looks like Proper Case to me.

You choose.................

Sub Lower()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = LCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Sub Proper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = Application.Proper(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP



On Tue, 22 Dec 2009 16:24:00 -0000, "Mervyn Thomas"
wrote:

Does anyone have a bit of code to convert a file of conatcts all in
UPPERCASE to Lower Case?