Changing uppercase to lowercase

[Paul K.]

I looked on this forum yesterday to find a solution to change upper to
lowercase in a spreadsheet. I found this code in a thread which needs to be
changed in order to produce lowercase results at the moment it produces
UPPERCASE.

Option Explicit

Sub ConvertCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
'Use this line for UpperCase text; change UCase to LCase for
LowerCase text.
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub

Could someone please explain what part of the code needs changing to produce
lowercase results. Thank you in advance

Paul

[SamuelT]

Hi,

Instead of fiddling with VBA, why don't you just do:

=LOWER(A1)

This'll change all the text to lowercase. You'll need to do it in a seperate column, but then just copy and paste it over.

HTH,

SamuelT

[SIR Knight]

Paul,

Change the "UCase(Rng.Value)" to "LCase(Rng.Value)"

The line in the code above this tells you what to change

Steve

[SAP PoD]

There is an UPPER and LOWER function (=LOWER(A2))

If you use this and copy/paste special (values) I'm sure you could resolve.

[Paul K.]

Thank you.

"SIR Knight" wrote:

>
> Paul,
>
> Change the "UCase(Rng.Value)" to "LCase(Rng.Value)"
>
> The line in the code above this tells you what to change
>
> Steve
>
>