How to change if ... then change font style (name, size, etc.) in a cell using function

Hi,
I want to change the font name in a cell using if then function, not using VBA.

Examle:
Font name in A1 = Calibri
If A2=1, then font name in A1 will change to Arial
If A2=2, then font name in A1 will change to Times New Roman

Properly I will create a list of font names.

I do not know if this can be done. If it is impossible to do with function,
then I will take VBA. The code may have codes to change font name,
color, bold, italic, size, etc.

Thanks

If "A2" is specific word, then in "B2" conditional formatting.
>CF > Manage Rules > New Rules > Select "use a formula determine which cell to format > Type : =$A2="Your Word" > click on format > Select from Tab Font/Border/Fill as per your requirement > Click "OK" > Again click "ok" > Applies to =$B$2 > click "Apply" > "ok"
for more clarity refer attach file.

Font name change with vba.

So, just to be clear, you have a cell with, say Calibri, and you want to change it to Ariel?