I am having a problem with my code when trying to set it
up to email multiple receipiants. It works for one
receipiant but not multiple. I have tried using an array
but keep getting errors. I would appreciate any help I
can get on this. Here is a sample of my code:

Private Sub CommandButton3_Click()
Dim Msg, Style, Title, Response
Msg = "Are you sure you want to send this request?"
Style = vbYesNo + vbCritical + vbSubReq
Title = "E-mail"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
ActiveWorkbook.SendMail
", Subject:="Test",
ReturnReceipt:="False"
MsgBox ("Your swap request has been sent")
Else
MsgBox "Send operation aborted."
End If
End Sub