Excel - Excel Macro, Solver can not find solution

.....Sheets("Calculations").Select
SolverLoad LoadArea:="N17:N26"
SolverOk SetCell:="$O$8", MaxMinVal:=2, ValueOf:=0, ByChange:="$F$6,$F$7,$C$49" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve userFinish
Hola a todos,

He podido hacer que la macro haga todo el proceso de solver (incluyendo el cudrado de aceptar el resultado) pero hay valores que son erroneos porque no se ha cumplido todo el criterio, hay alguna forma de que los valores que no son incorrectos salgan en un color distintivo?

Me han dicho de usar
ya que vi que devuelve diferentes valores según la solución encontrada.
0
Solver encontró una solución. Se cumplen todas las restricciones y condiciones óptimas.
1
Solver ha convergido a la solución actual. Se cumplen todas las restricciones.
2
Solver no puede mejorar la solución actual. Se cumplen todas las restricciones.
3
Se eligió detener al alcanzar el límite máximo de iteraciones.
4
Los valores de las celdas objetivo no convergen.
5
Solver no encontró ninguna solución viable.
6
Solver se detuvo con la solicitud del usuario.
7
No se cumplen las condiciones de linealidad requeridas por este Solver de PL.
8
El problema es demasiado grande para que Solver lo resuelva.
9
Solver encontró un valor de error en una celda de destino o restricción.
10
Se eligió la interrupción al alcanzar el límite máximo de tiempo.
11
Memoria insuficiente para resolver el problema.
13
Error en el modelo. Compruebe que todas las celdas y restricciones son válidas.
14
Solver encontró una solución de enteros en la tolerancia. Se cumplen todas las restricciones.
15
Se eligió detener al alcanzar el número máximo de soluciones viables [enteros].
16
Se eligió detener al alcanzar el número máximo de subproblemas viables [enteros].
17
Solver llegó a la probabilidad para una solución global.
18
Todas las variables deben tener límites tanto superior como inferior.
19
Existe un conflicto de límites variables en la restricción binaria o de todos diferentes.
20
Los límites inferior y superior en las variables no permiten ninguna solución viable.

Por lo que si haces algo tipo
Dim resultado as integer
resultado = SolverSolve userFinish:=True

if resultado = Valor del error que quieres tratar then
Range("A1:A6").Interior.Color = RGB(200,160,27) CAMBIAR COLOR CELDA cuando se produzca el error.
end if



Pero no me va, alguna idea?

Gracias