Sub Workbook_Open()
Application.DisplayAlerts = False
Application.OnKey “{F3}”, “ShowCalc”
End Sub
‘——————
Sub ShowCalc()
Shell “Calc.Exe”, vbNormalFocus
End Sub
Se pretendermos apagar os valores zero (0) de determinado Range sem retirar o formato das …