Public Sub BoldCells() Dim Row As Object For Each Row In Range("SalesData").Rows If Row.Cells(1).Value > 1000 Then Row.Font.Bold = True Else Row.Font.Bold = False End If Next Row End Sub