No editor do VBE em "EstaPasta_de_trabalho" coloque a rotina abaixo:
Option Explicit
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "limpaH2"
End Sub
Em outro Modulo coloque :
Sub limpaH2()
Sheets("Principal").Range("H2").ClearContents
Application.OnTime Now + TimeValue("00:00:05"), "limpaH2"
End Sub
Não esqueça de ajustar o nome da aba.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/04/2015 10:52 am