Sub BoldNCRows() Dim rngRow As Range For Each rngRow In Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Rows rngRow.Font.Bold = True Next rngRowEnd Sub