Just be aware that if you have any formulas in the range, they will be wiped
out.

I would revise to this...........

Sub chCase()
For Each c In Range("A2:Y201")
c.Formula = LCase(c.Formula)
Next
End Sub


Gord Dibben MS Excel MVP


On Wed, 30 Jul 2008 13:20:22 -0700, Solutions Manager
wrote:

Thank you. This will work.