Excel, Como mudar a cor da fonte de apenas 1 palavra

Sub FormataNúms()

  Dim rg As Range, c As Range, m As Object

  Set rg = Application.InputBox(Prompt:="Selecione as células", Title:="Formatar Números", Type:=8)

  With CreateObject("VBScript.Regexp&quot

    .Pattern = "\d+": .Global = True

    For Each c In rg

      For Each m In .Execute(c.Value)

        With c.Characters(Start:=m.FirstIndex + 1, Length:=m.Length)

          .Font.Color = vbRed

          .Font.Bold = True

        End With

      Next m

    Next c

  End With

End Sub

Eduardo9969 disse:

...muda-se de cor somente os números que tiver escrito na celula.

Sub FormataNúms()

  Dim rg As Range, c As Range, m As Object

  On Error GoTo Sair 'Caso a seleção seja outro objeto que não uma célula, não faz nada.

  Set rg = Selection

  With CreateObject("VBScript.Regexp&quot

    .Pattern = "\(\d+\)": .Global = True

    For Each c In rg

      For Each m In .Execute(c.Value)

        With c.Characters(Start:=m.FirstIndex + 2, Length:=m.Length - 2)

          .Font.Color = vbRed: .Font.Bold = True

        End With

      Next m

    Next c

  End With

Sair:

  Set rg = Nothing: Set c = Nothing: Set m = Nothing

  Exit Sub

End Sub