Sub test2()'''version2
Dim LastRow, i As Long
Dim r As Range
For i = 1 To 32
LastRow = Cells(Rows.Count, i).End(xlUp).Row
For Each r In Range(Cells(8, i), Cells(8, i))
If r.Value < 79.5 And r.Offset(0, 1).Value < 79.5 And r.Offset(0, 2).Value < 79.5 Then
Range(Cells(r.Offset(2, 0).Row, i + 2), Cells(LastRow, i + 2)).Select
With Selection
.Font.FontStyle = "Bold"
.Font.Color = rgbWhite
.Interior.Color = rgbRed
Call Macro2
End With
End If
Next r
Next i
End Sub