JPerez, seu arquivo está em xlsx, sendo assim veio sem código.

Segue novamente.. Mil perdões!

Estou igual a tonto... e sei que e algo bem simples...rsrsrs

A rotina de abrir faz perfeito...
Ja de fechar sem salvar as alterações nem tchum

substitua

Private Sub Workbook_Close(Cancel As Boolean)

por

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Osvaldomp

Segue em anexo a alteração e continua não aparecendo a rotina....

No código WB_Open foi colocado o comando Application.EnableEvents = False e não foi tornado para True ao final do código.

Se necessária a existência desse comando naquele código (me parece que não é necessária) DEVE ser tornado para True no final.

Osvaldomp

Perfeito ... depois de quebrar muito a cabeça era isso mesmo o problema...

Obrigado