Excel Addins for Change case like ProperCase, UPPERCASE and lowercase

 

Change Case Like: UPPER CASE, lower case and Proper Case for selected test and All sheets in a workbook only one click

Download code and Addins - Go to bottom

Copy Code here:

Option Explicit

Sub ProperCase()

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = WorksheetFunction.Proper(Cell.Value)

Next

On Error GoTo 0

MsgBox "All Text Content converted into Proper Case Successfully!!"

End Sub

Sub UPPERCASE()

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = UCase(Cell.Value)

Next

On Error GoTo 0

MsgBox "All Text Content converted into UPPER CASE Successfully!!"

End Sub

Sub lowercase()

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = LCase(Cell.Value)

Next

On Error GoTo 0

MsgBox "All Text Content converted into lower case Successfully!!"

End Sub

Sub all_ProperCase()

Dim i As Long

Dim shCount As Long

shCount = Sheets.Count

For i = 1 To shCount

Sheets(i).Select

On Error GoTo Errorh

Selection.SpecialCells(xlCellTypeConstants, 23).Select

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = WorksheetFunction.Proper(Cell.Value)

Next

On Error GoTo 0

Errorh:

If Err.Number = 1004 Then

MsgBox "Opps!! Some blank cells are already selected in this sheet kindly slelect single cell and run program again"

End If

Next i

MsgBox "All Sheets Text Content converted into Proper Case Successfully!!"

End Sub

Sub ALL_UPPERCASE()

Dim i As Long

Dim shCount As Long

shCount = Sheets.Count

For i = 1 To shCount

Sheets(i).Select

On Error GoTo Errorh

Selection.SpecialCells(xlCellTypeConstants, 23).Select

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = UCase(Cell.Value)

Next

On Error GoTo 0

Errorh:

If Err.Number = 1004 Then

MsgBox "Opps!! Some blank cells are already selected in this sheet kindly slelect single cell and run program again"

End If

Next i

MsgBox "All Text Content converted into UPPER CASE Successfully!!"

End Sub

Sub all_lowercase()

Dim i As Long

Dim shCount As Long

shCount = Sheets.Count

For i = 1 To shCount

Sheets(i).Select

On Error GoTo Errorh

Selection.SpecialCells(xlCellTypeConstants, 23).Select

On Error Resume Next

Dim Cell As Range

For Each Cell In Selection.Cells

Cell.Value = LCase(Cell.Value)

Next

On Error GoTo 0

Errorh:

If Err.Number = 1004 Then

MsgBox "Opps!! Some blank cells are already selected in this sheet kindly slelect single cell and run program again"

End If

Next i

MsgBox "All Text Content converted into lower case Successfully!!"

End Sub

Download VBA Code: Click here

Download Addins File: Click here