hendrikbez
Board Regular
- Joined
- Dec 13, 2013
- Messages
- 95
- Office Version
- 2021
- Platform
- Windows
Hi i want to add button on sheet1, to make all words in sheet4 column c in upper case, this is the code i have.
How do I add a sheet to it.
How do I add a sheet to it.
VBA Code:
Private Sub Worksheet_Activate()
On Error Resume Next
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Range("$C$2:" & Range("$C$2").SpecialCells(xlLastCell).Address)
cell.Value = UCase(cell.Value)
Next cell
On Error GoTo 0
Application.ScreenUpdating = True
End Sub