Ve se serve pra vc.
Nesse exemplo eu passo a cor de uma label para a cor da celula da flexgrid
Dim Cont1 As Integer 'Contador para ler as linhas
Dim Cont2 As Integer 'Contador para Colorir por colunas
With flxTarefas
For Cont1 = 1 To Val(lblTot.Caption)
If .TextMatrix(Cont1, 8) = "N" Then 'Se o que tiver na celula for = 'N'
For Cont2 = 0 To 9
.Col = Cont2
.Row = Cont1
.CellBackColor = lblCorConcluidas.BackColor
Next Cont2
End If
Next Cont1
End With
Espero ter ajudado.
Att.
André