¿Cómo hacer que la función "SI" insertada por macro en una celda se evalué?

Tengo esta macro con "With" donde un TextBox llamado (ProximaC) me inserta una fecha en las celdas de la columna F con formato (dd/mm/aaaa), y en la celdas de la columna H una función SI donde me debería de evaluar si la fecha introducida de el equipo X esta Validado, Por Vencer o Vencido; si inserta la fórmula en la celdas de la columna H pero no evalúa, solo coloca Validado.

¿En qué estoy mal?

With ThisWorkbook.Worksheets("RegistroGAGES")
.Cells(NewRow, 1).Value = Me.ID
.Cells(NewRow, 2).Value = Me.Parte
.Cells(NewRow, 3).Value = Me.Celda
.Cells(NewRow, 4).Value = Me.Tipo
.Cells(NewRow, 5).Value = Me.FechaC
.Cells(NewRow, 6).Value = Me.ProximaC
.Cells(NewRow, 7).Value = Me.Comentarios
.Cells(NewRow, 8).FormulaLocal = "=Si($F" & NewRow & " > $AB$1, ""Validado"", Si($F" & NewRow & "<=$AB$1, Si($F" & NewRow & ">=$AA$1, ""Por Vencer"", ""Vencido"")))"
End With