Change text to lower case

[adam]

Hi Anyone,

I have text in the range mentioned in the following code which I want to change to lower case. I need help to modify this code so that I could do the needful. I tried by my self. But couldnt get the code get working

Code: Select all

Sub Lowercase()
   For Each x In Range("B1:B5")
      x.Value = LCase(x.Value)
   Next
End Sub

Any help would be kindly appreciated.

Thanks in advance.

[HansV]

This macro should be in a standard module, not in a worksheet module. It should then work correctly, but keep in mind that this code will replace formulas in the range B1:B5 with their result.

[Rudi]

Just to add...

This too can be done without code:
In C1, type : =Lower(B1), and autofill to C5.

[adam]

Thanks Rudi & Hans for you help & recommendation. I have solved the problem now. And I do really appreciate your help.