me envia error la macro

Me podria alguien ayudar por favor a corregir esta macro ya que necesito
ver al enviar el contenido de este archivo que se envia.


Por su ayuda muchas gracias.
Saludos.

Workbooks.Open Filename:="C:\COMISION SOBRE SALDO.xls"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
"lsanchez@profuturo-gnp.com.mx" & ";" & "candrade@profuturo-gnp.com.mx" &
";" & "lbalcazar@profuturo-gnp.com.mx" & ";" &
"mbarrera@profuturo-gnp.com.mx" & "; " & "lcastro@profuturo-gnp.com.mx" &
";" & "gcoutu01@profuturo-gnp.com.mx" & ";" &
"legarcia@profuturo-gnp.com.mx" & ";" & "mlopez1@profuturo-gnp.com.mx" &
";" & "amagda01@profuturo-gnp.com.mx" & ";" &
"isela.mata@profuturo-gnp.com.mx" & ";" & "jtorres@profuturo-gnp.com.mx" &
";" & "osalar01@profuturo-gnp.com.mx", "COMISION SOBRE SALDO" & " " & Date
Windows("COMISION SOBRE SALDO.XLS").Activate
ActiveWindow.Close SaveChanges:=False