Attribute VB_Name = "testcellfont1"
Sub ƒeƒXƒg()
    
    Range("A2").Value = "‚l‚r ‚o–¾’©"
    Range("A2").Font.name = "‚l‚r ‚o–¾’©"
    Range("A2").Font.Size = 15
  
    Range("A4").Value = Application.StandardFont
    Range("A5").Value = Application.StandardFontSize
End Sub