Boa tarde, HBraga

Via VBA, insira o seguinte módulo de evento sob o objeto de planilha onde está sua forma "Oval1".

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("F3")) Is Nothing Then
    With ActiveSheet.Shapes("Oval1").Fill.ForeColor
      Select Case Target.Value
         Case 0.83: .RGB = RGB(255, 0, 0)
         Case 0.92: .RGB = RGB(255, 255, 0)
         Case 0.98: .RGB = RGB(0, 255, 0)
         Case Else: .RGB = RGB(255, 255, 255)
      End Select
    End With
    ActiveSheet.Shapes("Oval1").Fill.Solid
  End If
End Sub

Abraços e boas festas!

EdsonBR,

Muito obrigado. Funcionou perfeitamente. Vou apenas adequar as células de referência e os nomes das Forms.

Boas festas!!

Abraço!