User Defined Function

[Corbie]

Can anybody help. I need to write a UDF that given a range (part of a row) sums every 4th number.

Any Ideas

Thanx

 

[Zathras]

Option Explicit

Function SumEveryFourth(ARange As Range) As Double
Dim c As Range
Dim nCounter As Long

  For Each c In ARange
    If nCounter = 3 Then
      SumEveryFourth = SumEveryFourth + c.Value
      nCounter = 0
    Else
      nCounter = nCounter + 1
    End If
  Next c
End Function

 

[Corbie]

Thanks, works fine