I guess you have to specify the Receipients as an arrayActiveworkbook.SendMail Receipients:=Array("name1.surname1@...","name2.surname2@..."),Subject:=............