Macro, Error, Envío de Doc Ajuntos a varios Correos

Para Dante Amor,

Hola me llamo ismael, Seguro ya haz respondido esto. A otros compañeros, sin embargo me apoyas. Me da error al correr la macro que desarrollaste para el envío de correo electrónico masivo para diferentes archivos adjuntos

Deteniendo se el error en la siguiente línea

dam.To = Range("B" & i) 'Destinatarios

TENGO EXCEL 2013 ...