Convert to Sentence Case/End Sub Convert to Proper Case/Convert to Lower Case/Convert to Upper Case

Convert to Upper Case

Select the cells and run this code. It will check each and every cell of selected range and then convert it into upper case text.

Sub convertUpperCase()

Dim Rng As Range

For Each Rng In Selection

If Application.WorksheetFunction.IsText(Rng) Then

Rng.Value = UCase(Rng)

End If

Next

End Sub

Convert to Lower Case

This code will help you to convert selected text into lower case text. Just select a range of cells where you have text and run this code. If a cell has a number or any value other than text that value will remain same.

Sub convertLowerCase()

Dim Rng As Range

For Each Rng In Selection

If Application.WorksheetFunction.IsText(Rng) Then

Rng.Value= LCase(Rng)

End If

Next

End Sub

Convert to Proper Case

And, this code will convert selected text into the proper case where you have the first letter in capital and rest in small.

Sub convertProperCase()

Dim Rng As Range

For Each Rng In Selection

If WorksheetFunction.IsText(Rng) Then

Rng.Value= WorksheetFunction.Proper(Rng.Value)

End If

Next

End Sub

Convert to Sentence Case

In text case, you have the first letter of the first word in capital and rest all in words in small for a single sentence. And, this code will help you convert normal text into sentence case.

Sub convertTextCase()

Dim Rng As Range

For Each Rng In Selection

If WorksheetFunction.IsText(Rng) Then

Rng.Value= UCase(Left(Rng, 1)) & LCase(Right(Rng, Len(Rng) -1))

End If

Next rng

End Sub