Get rows from a named range (name the range before running this cript)
Sub Bold() Dim rngRow As Range For Each rngRow In Range("yourRange").Rows If rngRow.Cells(1).Value > 1 Then rngRow.Font.Bold = True Else rngRow.Font.Bold = False End If Next rngRow End Sub