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

    Range("A3").Font.Bold = True
    Range("B2").Font.Italic = True
    Range("B3").Font.Bold = True
    Range("B3").Font.Italic = True

End Sub