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

    Range("A2").Font.ColorIndex = 3
    Range("B3").Font.ColorIndex = 26
    Range("B4").Font.ColorIndex = 47

End Sub