How to change textbox font using name of font?

[matthew]

HI,
I was hoping to use the name of the font rather than the macro code:
Application.ActiveWindow.Page.Shapes.ItemFromID(Milestone(X, 21)).CellsSRC(visSectionCharacter, 0, visCharacterFont).FormulaU = "523"
Is there a way of using the font name e.g. "Wingdings 2"?
thanks

[Paul Herber]

Our very own Surrogate posted this:

https://stackoverflow.com/questions/53227621/vba-to-change-visio-font-style-by-font-name-instead-of-font-index

[matthew]

thanks Paul,
that worked just great on both computers, thank you