セル操作について

'セルに値を設定する
ActiveWorksheet.Cells(1, 1).Value = "値"

'セルのフォントを変更する
Dim ws AS Excel.Worksheet
Dim rng AS Range
SET ws = ActiveWorksheet;
SET rng = ws.Range(ws.Cells(1, 1), ws.Cells(1, 5))
rng.Font.Size = 8

'セルの背景色を変更する
rng.Interior.ColorIndex = 3