Problema copiado y pegado

Hola Compañeros Tengo un problema

Tengo el Siguiente Codigo

Private Sub Workbook_Deactivate()

Application.Calculation = xlCalculationAutomatic

End Sub


Private Sub Workbook_Activate()


If Application.Calculation = xlCalculationAutomatic Then

Application.Calculation = xlCalculationManual

End If


[/CODE]

Funciona Bien

pero

Cuando selecciono algo de otro excel para Copiar -al abrir el Excel dek codigo ya no me deja pegar

Como si se seleccionara.. eliminé el código de arriba y si deja

Gracias