Attribute VB_Name = "testcellfont3"
Sub ƒeƒXƒg()
    
    Range("B2:B5").Value = "ABC"

    Range("B2").Font.Underline = xlUnderlineStyleSingle
    Range("B3").Font.Underline = xlUnderlineStyleDouble
    Range("B4").Font.Underline = xlUnderlineStyleSingleAccounting
    Range("B5").Font.Underline = xlUnderlineStyleDoubleAccounting

End Sub