Cells(i + 16, 6).Value = xCcalc watch = (Abs((xBbot - xBcalc) / xBbot)) * 100 Cells(i + 16, 7).Value = watch If watch > 0.05 Then Cells(i + 16, 1).Value = "Mass balance mismatch" End Sub