¿Cómo cambiar la fuente del contenido especificado en VBA?

Sub demostración()

Con Range("A1")

.Font.Name = "Microsoft Yahei"

Para i = 1 a Len(.Value)

Si Mid(.Value， i， 1) Como "[一-饥]" Entonces .Characters(i， 1).Font.Name = "宋体"

Siguiente

Terminar con

Fin Sub