Public Function RangeSum(ByRef rng) Dim cell For Each cell In rng If cell > 50 Then RangeSum = RangeSum + cell Next RangeSum = RangeSum * 1.5 End Function