Forum Discussion
Greg Daughenbaugh
Nov 25, 2017Copper Contributor
Microsoft Excel keeping all cells uppercase
I have a spreadsheet that several people use and would like to keep the text in a particular column always set to upper case. Regardless of case the user enters the data in this column it is saved i...
Haytham Amairah
Nov 25, 2017Silver Contributor
Greg,
This is possible, but with some lines of code!
I have a macro which is fairly good to do this task, to apply it follow these steps:
Step 1: Press Alt+F11 to open the VBA editor as shown in the below screenshot:
Step 2: Double-click on the sheet that contains the column you want.
Step 3: Copy this code to the editor, then close it.
Private Sub Worksheet_Activate() On Error Resume Next Application.ScreenUpdating = False Dim cell As Range For Each cell In Range("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address) cell.Value = UCase(cell.Value) Next cell On Error GoTo 0 Application.ScreenUpdating = True End Sub
Step 4: Save the workbook as Macro-Enabled Workbook (*.xlsm).
After that, the macro will trigger each time you activate the worksheet.
NOTE: This macro is applied to column A in sheet1.
mrpotatohead
Jul 10, 2021Copper Contributor
Haytham Amairah Hi, this does not seem to work for me, even in column A when I directly copy and paste the code and saved as suggested.
Any ideas?