Copie tu código, pero no funciona

     

dam.To = Range("B" & i) 'Destinatarios  , en esta linea se cae

Ojala me puedas ayudar