I particularly liked this solution but thanks to everyone who answered
"JLGWhiz" wrote in message
...
Sub dk()
Dim nm As Range
For Each nm In Range("A2:A25") 'substitute actual range
nm = StrConv(nm.Value, vbProperCase)
Next

End Sub


"Mervyn Thomas" wrote in message
...
Does anyone have a bit of code to convert a file of conatcts all in
UPPERCASE to Lower Case?