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