Como cerrar visor Outlook Excel 2010

Muy buena tarde:

Tengo el siguiente Código donde me permite tomar los datos de una Hoja para incrustarlos en una plantilla y enviarlos vía correo electrónico. Funciona de maravilla, pero cuando la activo y decido cancelar dicho correo no me permite cerrar el visor, debo enviar a cualquier destinatario para cerrar dicho visor, el código es el siguiente:

Sub ENVIAR()
' SELECCION DE PLANTILLA Y RANGO A ENVIAR
Sheets("Plantilla").Select
ActiveSheet.Range("A1:E35").Select
' MUESTRA LA PAGINA
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "Dispersión con fecha liquidación DDMMAAAA"
'.Item.Send
End With
End Sub

Gracias por el apoyo. Saludos

Añade tu respuesta

Haz clic para o