Excel 2011 send attchmenf file

This is a fast work I have this code, and it works fine. But now I need send more than one attachment. varfile= path and file name. MailFromMacWithMail bodycontent:=[login to view URL]("a").Range("d" & i).Value, _ mailsubject:=[login to view URL]("a").Range("c" & i).Value, _ toaddress:=[login to view URL]("a").Range("b" & i).Value, _ ccaddress:="", _ bccaddress:="", _ attachment:=VarFile, _ displaymail:=False