Olá,

Gostaria de uma ajuda, para incluir no programa, envio de mais 1 destinatário em cópia no mesmo e-mail.
O operador "=" só consigo ver para 1 destinatário, gostaria de enviar para mais de 1.

Sub EnviarEmailPlanilhaEspecifica()

Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
Dim objOlAppApp As Object
Dim objOlAppMsg As Object
Dim objOlAppRecip As Object
Dim x As String
'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc
sPlanAEnviar = "Adriana"

'Cria um novo arquivo excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Copia a planilha para o novo arquivo criado
ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)
'Determina o x
x = Range("c5").Value
'Salva o arquivo
NovoArquivoXLS.SaveAs ThisWorkbook.Path & "" & sPlanAEnviar & " " & x & ".xls"
sExcluirAnexoTemporario = NovoArquivoXLS.FullName
'Aqui começa o envio do email:
'Criar objeto do outlook
Set objOlAppApp = CreateObject("Outlook.Application")
Set objOlAppMsg = objOlAppApp.CreateItem(0)

With objOlAppMsg
'Anexa o arquivo
.Attachments.Add (sExcluirAnexoTemporario)
'Grau de importância do email
.Importance = olImportanceNormal
'Campo de destinatario
.to = ""
'Com cópia
.CC = ""
'Cabeçalho do email
.Subject = ("")
'Texto do email
.Body = "Segue e-mail"
'Enviar email
.Display
'se quiser ver o email antes de enviar automaticamente .Display

End With

'MsgBox "E-mail enviado com sucesso!", vbOKOnly, "Aviso"
'Fecha o arquivo novo
NovoArquivoXLS.Close
'Exclui o arquivo criado apenas para ser enviado.
Kill sExcluirAnexoTemporario
'Sheets("Plan1").cell.ClearContents
End Sub