Re: Uppercase format - Working with any selected range
2 years later ...
Searching for a similar solution, found this post, and implemented one more Universal solution, that I would like to share.
In order to make the UPcase conversion, work for any preselected range,
we can create this Procedure:
Public Sub Format_Upcase()
Application.ScreenUpdating = False 'speed up with large selections
Application.Calculation = xlManual
For Each xCell In Selection
If UCase(xCell.Text) <> xCell.Text Then xCell.Value = UCase(xCell.Text)
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Then, we just have to select the range where we want to change to Upcase and run the macro...
Hope it helps,
Regards