Macro Excel

Senhores,
Boa Noite
Estou tendo um problema com a macro abaixo..
Ela funciona com o comando 'display' mas como comando 'send' ele da a mesnagem: erro em tempo de execução '287'.
Os senhores poderiam me ajudar.
Grato

Sub sbx_envia_email()

'Application.Goto Reference:="SBX_ENVIA_EMAIL"

Dim X As Long

Dim OutApp As Object
Dim OutMail As Object
Dim texto As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

For X = 1 To Range("C65536").End(xlUp).Row
'For X = 1 To 2

  If Range("AC" & X) <> "X" Then

     texto = "Prezado(a) " & Range("A" & X) & vbCrLf & vbCrLf & _
     "O valor total das suas refeições em setembro/2014 foi de R$: " & Range("AA" & X) & vbCrLf &vbCrLf & _
             "Atenciosamente" & vbCrLf & vbCrLf
             
     With OutMail

        .To = Range("B" & X)
        .cc = "c.tavares@uol.com.br"
        .bcc = ""
        .Subject = "VALOR DE SUAS REFEIÇÕES"
        .body = texto
        .send

     End With
         
  End If

Next X

End Sub