Offset Sum Formula In VBA

I am using the following code to sum a range of cells in a column and compare the result to another column, bolding that column if the two values are not equal. This works, but I am sure someone can offer me a far more elegant (and perhaps faster?) solution.


Dim rngRange As Range
Dim c As Range

Set rngRange = ActiveSheet.Range("F22:F522")
For Each c In rngRange
If c.Value c.Offset(0, 1) + c.Offset(0, 2) + c.Offset(0, 3) + c.Offset(0, 4) + c.Offset(0, 5) + c.Offset(0, 6) + c.Offset(0, 7) + c.Offset(0, 8) + c.Offset(0, 9) + c.Offset(0, 10) Then
c.Font.Bold = True
Else
c.Font.Bold = False
End If
Next c