Formatos del Gantt

Hola,

estoy intentando cambiar el formato de los elementos de la
ventana del Gantt del Project según el valor que tenga la
celda "Text4" de la fila i

En mi corta experiencia en VBA he pensado en algo así,
pero no me coge el valor del Text4...

¿Podría ayudarme alguien?

Gracias

Jorge

Sub Macro1()
For i = 1 To 20
MSProject.SelectTaskField Row:=i, Column:="Text4",
RowRelative:=False
If MSProject.ActiveProject.Text4 = "ISM" Then
SetTaskField Field:="Text4", Value:="EcM", TaskID:=i,
ProjectName:="C:\Proyecto.mpp"
GanttBarFormat TaskID:=i, GanttStyle:=4,tartShape:=3,
StartType:=0, StartColor:=2, MiddleShape:=0,
MiddlePattern:=1, MiddleColor:=2, EndShape:=0, EndType:=0,
EndColor:=2, RightText:="Start",
ProjectName:="C:\Proyecto.mpp"
End If
Next
End Sub