Sub Bold() Dim rngRow As Range For Each rngRow In Range("A1:E5").Rows If rngRow.Cells(1).Value > 1 Then rngRow.Font.Bold = True Else rngRow.Font.Bold = False End If Next rngRow End Sub