Отправка почты из Excel - VBA

Формулировка задачи:

Добрый день! Нашел готовый способо отправки писем из Excel, вроде бы всё хорошо, только не могу вписать в макрос еще парочку получателей... Помогите. Спасибо!

Sub SendSheet()
'отправка текущего листа
    ThisWorkbook.Sheets(1).Copy
    With ActiveWorkbook
        .SendMail Recipients:="removed@mail.ru", _
                  Subject:="subj"
        .Close SaveChanges:=False
    End With
End Sub

Решение задачи: «Отправка почты из Excel»

textual
                            Листинг программы 
                        
                            Recipients:=Array("e@mail.com","e1@mail.com","e2@mail.com")