Xls Macro (#kindy)

Tendo em consideração as exigências de um cliente que raramente sabe o que quer, muito jeitinho me deu esta Macro durante toda esta semana!

Sub KindergartenFont()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim x As String, ws As Object, cell As Range
x = MsgBox("Use CANCEL to abort changing all constant " _
& "cells to uppercase", vbOKCancel)
If x = vbCancel Then Exit Sub
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next 'In case no cells in selection
ws.Activate
For Each cell In Cells.SpecialCells(xlConstants, xlTextValues)
cell.Formula = UCase(cell.Formula)
Next
Next ws
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Recomendada a quem trabalha para uma associação portuguesa para a defesa do consumidor (não digo qual é...).

- Oh Srs!!!! Não sabem ser menos exigentes? Peloamordasanta.