Visual Basic - Problemas con codigo Outlook

Buenas

Soy nuevo y estoy empezando, Mis conocimientos son casi nulos.
He realizado un codigo que al tener seleccionados unos mensajes de correo en la bandeja de entrada de Outlook, les manda un correo a los seleccionados. El problema es que abre muchos correosm tantos como selecciones. Quiero que habra solo un correo y en la direccion de envio ( .to), aparezcan todos los remitentes. Intuyo qye se hace cun una matriz pero no se hacerlo.
¿Me podeis ayudar? Dejo el codigo. Macro de Outlook

Sub Mail_workbook_Outlook()
Dim selection As Outlook.MailItem

'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
For Each selection In Application.ActiveExplorer.selection

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = selection.SenderEmailAddress
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
'Se pueden adjuntar ficheros

.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
End With
Set OutMail = Nothing
Set OutApp = Nothing

Next selection


End Sub

solucionado
: