Please refine this to use lowercase instead of Proper

[Solutions Manager]

I have the following bit of code that works great for Proper case, but
doesn't work for Lowercase. I have tried LCase, vbLowerCase, Lower.... and it
doesn't work. Can this be adjusted?

Sub case_TEST()
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("manifest").Select
Range("A2:Y201").Value = Application.proper(Range("A2:Y201").Value)
Application.ScreenUpdating = True
End Sub

 

[Barb Reinhardt]

Have you tried

Range("A2:Y201").Value = Application.lcase(Range("A2:Y201").Text)

I can't test it now, so let me know.

 

[JLGWhiz]

Change From:
Range("A2:Y201").Value = Application.proper(Range("A2:Y201").Value)

To:
Range("A2:Y201").Value = Lower(Range("A2:Y201").Value)

 

[JLGWhiz]

Ddisregard the other and Change From:
Range("A2:Y201").Value = Application.proper(Range("A2:Y201").Value)

To:
Range("A2:Y201").Value = LCase(Range("A2:Y201").Value)

 

[Solutions Manager]

so far the presented solutions from everyone have not worked. I get object
not supported and variable not defined errors. It really seems like this
should work. Thanks for the help though...

 

[JLGWhiz]

I have days like this. You can't change a range of cells in block. You have
to use a loop to do it. Try this:

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

 

[Solutions Manager]

Thank you. This will work.

I have days like this. You can't change a range of cells in block. You have
to use a loop to do it. Try this:

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

 

[Gord Dibben]

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