Ottsel
Board Regular
- Joined
- Jun 4, 2022
- Messages
- 167
- Office Version
- 365
- Platform
- Windows
I'm struggling to find a way for my data that's entered to automatically be capitalized, as some other users are not careful when entering data. Currently I've been using the code posted below to do the trick, but it can cause a delay from time to time. The way it works is it updates whenever you change sheets, so that is the cause of the delay. I was hoping to find a better solution.
Any suggestions or tips would be highly appreciated!
Any suggestions or tips would be highly appreciated!
VBA Code:
Private Sub Worksheet_Activate()
On Error Resume Next
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Range("$B$1:" & Range("$c$10000").SpecialCells(xlLastCell).Address)
cell.Value = UCase(cell.Value)
Next cell
On Error GoTo 0
Application.ScreenUpdating = True
End Sub