Sub フォントを変更する()

    Range("A1").Font.Name = "HG創英角ﾎﾟｯﾌﾟ体"
    
End Sub