Visual Basic para Aplicaciones - Resaltar Tareas con una condicion en Project

Buenas a todos,
Necesito una macro para que me resalte todas las tareas que tengan un 1 en un campo personalizado que cree.
Probe y probe y no lo logro.
Agradeceria su ayuda.

Gracias

Hice este colido pero me da error "El Objeto no Admite esta Propiedad o Metodo"

Sub ResaltarTareas()
Dim tarea As Task
For Each tarea In ActiveProject.Tasks
If tarea.Number10 = 1 Then
tarea.CellColor = pjRed
End If
Next tarea
End Sub

Mejor sube el libro y vemos que quieres hacer.

Saludos.
\\//_

gracias por responder, no es un libro de Excel es un archivo de Project.
Adjunto un ejemplo, tendria que resaltar en amarillo las tareas que en la columna Number10 contengan un 1.

Gracias

• Resaltado.7z(16,8 KB)

Cuando en tu comentario ponías que necesitabas una macro creí que hablabas de Excel pero el archivo que he abierto tiene extensión .MPP
Desconozco que tipo de fichero es este.
No se abre con Excel.

Saludos.
\\//_

Es de Project.

Gracias