ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Recipients = Array("xxx@yyy.com","zzz@yyy.com") 'Can send mail to multiple recepients
.Subject = "Task completed"
.Message = "Mail content" & Target.Row 'Sending cell value in mail
'.AttachWorkbook = False
' By default the file will be attached in the mail. If it is not needed then send
' .AttachWorkbook as false.
End With
ThisWorkbook.Route