Thats great!!

It works all except one thing...... When i check a box say in row 7, it is picking up the email address from row 6, and the task from row 6 too, can you add +1 on to the row?

i.e. Recip = Cells(lRow + 1, "L").Value
Cells(lRow + 1, "C").Value