Excel - Macro para enviar correo desde excell 365

Sub Correo()

Dim mi_App As Object

Dim mi_Correo As Object

Set mi_App = CreateObject("Outlook.Application")

mi_App.Session.Logon

Set mi_Correo = mi_App.CreateItem(0)

ActiveWorkbook.Save

On Error Resume Next

With mi_Correo

.To = Range("B2").Value

.CC = Range("B3").Value

.BCC = Range("B4").Value

.Subject = Range("B5").Value

.Body = Range("B6").Value

.Attachments.Add Range("B7").Value

.Attachments.Add Range("B8").Value

.Attachments.Add Range("B9").Value

.DeleteAfterSubmit = False

.Send

End With

msgbox "Email enviado con éxito"

On Error GoTo 0

Set mi_Correo = Nothing

Set mi_App = Nothing

Range("b2").Value = Empty

Range("b3").Value = Empty

Range("b4").Value = Empty

Range("b5").Value = Empty

Range("b6").Value = Empty

Range("b7").Value = Empty

Range("b8").Value = Empty

End Sub