Re: Sending attachment to email list

It would take a while to look at this in detail... Please try to use this line instead

.To = ws.Range("A" & lRow ).Value