try this:

Sub cmd()
ActiveCell.EntireRow.Interior.ColorIndex = 3
End Sub
See here for list of colorindex

http://www.databison.com/excel-color...nge-using-vba/