Pelo que sei as cores dos icones da formatação condiconal, não são alteradas, mas veja no anexo uma possibilidade alterando a cor de um shape (circulo) de acordo com valor em uma celula; porem devem ser adaptada a sua necessidade

Reinaldo to tentando adaptar, mais é isso mesmo, olha so a planilha oproblema é que vou ter 4 opcoes uma para cada celula correspondente,
o conjunto é se <50% vermelho se entre 50 e 70% amarelo se entre 71 e 90% bom se maior que 90 cor azul, ta dificil mais to tentando seu raciocinio ta certin

esquece di de anexar a plan, rsrs

seria mais ou menos assim o if

Set Circulo = ActiveSheet.Shapes("Oval 1")
      
     If Range("F3") < 0.5 Then
        Circulo.Fill.ForeColor.SchemeColor = 2
        
     If Range("F3") > 0.5 < 0.7 Then
        Circulo.Fill.ForeColor.SchemeColor = 5
        
     If Range("F3") > 0.71 < 0.9 Then
        Circulo.Fill.ForeColor.SchemeColor = 3
        
     If Range("F3") > 0.9 Then
        Circulo.Fill.ForeColor.SchemeColor = 4

porem ... nao funciona

assim que tem que ficar as bolinhas,

'<50%
'Circulo.Fill.ForeColor.SchemeColor = 2 Vermelho
'>=50% e <70%
'Circulo.Fill.ForeColor.SchemeColor = 3 verde
'>70% e <90%
'Circulo.Fill.ForeColor.SchemeColor = 5 Amarelo
'>=90"
'Circulo.Fill.ForeColor.SchemeColor = 4 Azul

não to conseguindo

Vou ver o codigo, mas para cada linha é um nome de "shape". Então fica mais dificil alterar a cor do objeto correspondente.
Porem porque não experimenta:
Formate a celula em G como fonte Webding, a letra n retorna um circulo, e pode ser colorido de acordo com a formatação condicional desejada.

Reinaldo, verdade, achei meu erro aqui, para uma linha olha só
Sub Bolinha()

    Set Circulo = ActiveSheet.Shapes("Oval 1")
      
     If Range("F3") < 0.5 Then
        Circulo.Fill.ForeColor.SchemeColor = 2
     ElseIf Range("F3") < 0.7 Then
        Circulo.Fill.ForeColor.SchemeColor = 5
     ElseIf Range("F3") < 0.9 Then
        Circulo.Fill.ForeColor.SchemeColor = 3
     ElseIf Range("F3") > 0.9 Then
        Circulo.Fill.ForeColor.SchemeColor = 18
         
     Else
        Circulo.Fill.ForeColor.SchemeColor = 0
     End If
        






End Sub

'<50%
'Circulo.Fill.ForeColor.SchemeColor = 2 Vermelho
'>=50% e <70%
'Circulo.Fill.ForeColor.SchemeColor = 3 verde
'>70% e <90%
'Circulo.Fill.ForeColor.SchemeColor = 5 Amarelo
'>=90"
'Circulo.Fill.ForeColor.SchemeColor = 4 Azul

só que como voce disse fica dificil fazer para cada linha, ta dicil mesmo, eu preciso para cada linha uma bola na cor correspondente,

mais da forma que voce esta falando nao sei como fazer, ode me passar um exemplo ?

estou indo para casa agora mais chegando lá a vejo o seu exemplo, ok,

se puder me ajudar, preciso entregar isso urgente,

abraçco valeu o esforço

vou mandar a plan em anexo pra voce ver que ficou certinho mais para cada linha eu teria que mudar o nome do objeto, aiii se eutiver 600 linhas #ToLascado

rsrs

abraç

Veja se é assim que imagina

CARA como não havia pensado nisso? não é atoa que voce é Excel Expert e eu sou só VIP, kkkkkkkk era só uma questão de pensar um pouco mesmo, agora te pergunto, como voce pensou no webdings ? kkkkkkkkkkkkkkkkkkkkkkkkkkk eu tava quebrando a cabeça com VBA e voce veio com uma ideia simples que RESOLVEU, KKKKKKKKKKKKKKKK

VALEU mano, compartilhando o conhecimento, =)

valeu d+