文字に色を付ける: Font.Color

文字に色を付ける場合は、colorプロパティを使います。次の例では、cells(5,2) (B5セル)　の文字を赤くします。

Sub test()   Cells(5, 2).Font.Color = RGB(255, 0, 0) End Sub

colorプロパティの他に、colorIndexを使っても良いです。入力は上と同じで、

　　Cells(5, 2).Font.ColorIndex = 1

などと、色番号で指定します。色番号は、

色番号    色
-----------------
1            黒
2            白
3            赤
4            明るい緑
5            青
    ・・・・・

などですので、試してみて下さい。

色はこちらを参照