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