Attribute VB_Name = "testcellfont4"
Sub ƒeƒXƒg()
    
    Range("A2:B4").Value = "ABC"

    Range("A2:B2").Font.Strikethrough = True
    Range("B3").Font.Superscript = True
    Range("B4").Font.Subscript = True

End Sub