Enviar mail desde excel tomando datos de la planilla

Hola, quería enviar un mail con ciertos datos de una hoja excel, a través de una macro.
Buscando cómo hacerlo encontré una respuesta que le habías hecho a otro usuario de todoexpertos y copié (con las modificaciones necesarias) el código.
Como dato, te comento que uso excel y outlook de office 2003. Y lo que intento hacer es que cuando la fecha que aparece en una celda en excel sea anterior a la del día de hoy, se envíe un mail cuando se abre la planilla excel. La estructura de la tabla es la siguiente:
(A2)=AÑO
(B2)PERIODO
(C2)FEDERACIÓN
(D2)CONVENIO
(E2)ORGANISMO
(F2)DESDE
(G2)ORGANISMO II
(H2)DESDE II
(I2)OBSERVACIONES
(J2)FECHA
(K2)CANTIDAD
(L2)fecha de hoy

(M2) mail

(N2) ESTADO

LA COMPARACIÓN SE HACE ENTRE LA FECHA DE LOS CAMPOS DE LA COLUMNA M Y LA COLUMNA J

Te copio el código que utilizo.
1 Private Sub Workbook_Open()
2 'envía mail
3 'Por.Dam
4 Sheets("Hoja5").Select
5 ufila = Range("B" & Rows.Count).End(xlUp).Row
6 For i = 4 To ufila
7 If Cells(i, 10) <= Cells(i, 12) Then
8 Set parte1 = CreateObject("outlook.application")
9 Set parte2 = parte1.createitem(olmailitem)
10 para = Cells(i, 13)
11 parte2.to = para 'Destinatarios
12 'parte2.CC = "" 'Con copia
13 parte2.Subject = "Hoja5" '"Asunto"
14 '"Cuerpo del mensaje"
15 parte2.body = "Señ@r " & Cells(i, 14) & _
16 " con " & Cells(i, 3)
17 'parte2.Attachments.Add Ruta & Archivo
18 parte2.send 'El correo se envía en automático
19 parte2.display 'El correo se muestra
20 End If
21 Next
22 End Sub

Hay cosas que no entiendo muy bien que hacen como la línea 6, pero no tienen inconvenientes (o al menos no lo demuestra el programa). El problema aparece con la línea 18, cuando se debe enviar el mensaje. DESPUÉS DE DARLE SÍ A "ENVIAR MAIL" APARECE LA VENTANA DE depurar Y AL ABRIR EL VB LA LÍNEA 18 ESTÇA MARCADA EN AMARILLO
Espero haber sido claro. Desde ya agradezco tu tiempo.
Saludos.