Excel - Sumar dígitos de una celda hasta llegar un dígito

Hola, para vba
Sumar dígitos de una celda hasta llegar un dígito.

Ejemplo:
A1 = 999

En A2 pongo la fórmula algo como "SumDig(A1)":
A2 = 9

¡Gracias!

No se entiende cual es el problema.

Saludos.
\\//_

Lo que trato decir es que quiero la suma de los dígitos de un número hasta llegar a un solo dígito.

Un número = 359

Entonces:
La suma de sus dígitos: 3 + 5 + 9
La suma de sus dígitos: 17

al sumar sus dígitos llego a dos dígitos lo que quiero que sigan sumando hasta quedar un dígito:
La suma de sus dígitos: 1 + 7
La suma de sus dígitos: 8


Y la respuesta deseada llego a 8.

La función de sumar dígitos:


Saludos.
\\//_

¡Gracias! Sí me funciona.