Sub LetterUpper()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each c In Selection
c.Value = UCase(c.Value)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub