Sub フォントカラー色を変更する_ColorIndex版()

    Range("A1").Font.ColorIndex = 3
    
End Sub

ColorIndexに関しては、マイクロソフトのこちらのページを参照 https://docs.microsoft.com/ja-jp/office/vba/api/excel.colorindex