ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Font.ColorIndex = 4
Assuming the blanks are not as a result of a formula.