Tenho a frase "Gostaria de 50 deles, por favor" na célula A1. Desejo fazer com que os caracteres numéricos sejam um texto em vermelho (apenas os caracteres numéricos). Como eu faço isso? Aqui está o quadro do que eu tenho ...

Sub RedText()

Dim i As Integer

For i = 1 To Len(Cells(1, 1).Value)
    If IsNumeric(Mid(Cells(1, 1).Value, i, 1)) = True Then
        'make the character red text
    End If
Next

End Sub

Qualquer ajuda seria muito apreciada