Excel VisualBasic Script

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