Hola, no esta solucionado, he quitado el problema para abrir el archivo, pero enviarlo por correo me sigue dando el error, aun con el envio de los correos, aun activando la referencia del Outlook, versión14, este me da un error en Dim olApp As Outlook.Application y no me deja seguir.
Hola, gbianchi, me funciona bien, solo es cuando lo ejecuto en otro ordenador, he realizado una prueba, tenia este código al cerrar lo he comentado y parece que ya esta solucionado el problema que daba Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Sheets("plantillaoba").Select 'Call BORRADO_PLANTILLAOBA 'ActiveWorkbook.Close Savechanges:=True End Sub