Utilize os Eventos do Workbook, "open e BeforeClose"
'Executa as ações ao Abrir o arquivo
Private Sub Workbook_Open()
'Ativa a tela Inicial
Worksheets("Inicial").Activate
'Executa as macros abaixo
Call Limpar1
Call Limpar2
Call Limpar3
End Sub
'Executa as ações ao Fechar o arquivo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Ativa a tela Inicial
Worksheets("Inicial").Activate
'Executa as macros abaixo
Call Limpar1
Call Limpar2
Call Limpar3
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 09/03/2014 7:46 pm