Recently we had to convert all text in an excel file containing a list of books to uppercase. Here is an Excel macro to get this work done quickly.
Copy the code given below
Sub AllTextToUpper()
Dim myRng As Range
Dim celRng As Range
On Error Resume Next
Set myRng= Cells.SpecialCells(xlCellTypeConstants, 2)
For Each celRng In myRng
celRng.Value = UCase(celRng.Value)
Next celRng
End Sub
Open the Excel file and press Alt+F11 (Hold Alt key and then press F11). This will bring up Miscrosoft VBA editor. Paste the above code as shown in the image below.
Copy the code given below
Sub AllTextToUpper()
Dim myRng As Range
Dim celRng As Range
On Error Resume Next
Set myRng= Cells.SpecialCells(xlCellTypeConstants, 2)
For Each celRng In myRng
celRng.Value = UCase(celRng.Value)
Next celRng
End Sub
Open the Excel file and press Alt+F11 (Hold Alt key and then press F11). This will bring up Miscrosoft VBA editor. Paste the above code as shown in the image below.
- Close VBA Editor and come back to Excel (Or press Alt+F11 again)
- Now Press Alt+F8 (or Click View->Macros->View Macros). The following dialog box will be visible.
- Select AllTextToUpper and then Click Run
- All the text in your excel sheet will be converted to Uppercase
Note: Please save your original Excel sheet before running macros. This action cannot be reversed.