Specifications

Data = CDbl(temp3(1))
Else
Data = 0
End If
If Data = 0 And Ender = 0 Then
Start = I
Else
If Data > 0 Then
RunningTotal = Data + RunningTotal
Ender = I
End If
End If
I = I + 1
Wend
Average = RunningTotal / (Ender - Start)
ActiveSheet.Cells(j, 1) = DataFile.Name
ActiveSheet.Cells(j, 2) = Average
ActiveSheet.Cells(j, 3) = Start
ActiveSheet.Cells(j, 4) = Ender
ActiveSheet.Cells(j, 5) = RunningTotal
j = j + 1
Next
End Sub
35