How to work with every cell in an array?

[Radka]

John, now it works! :-))
I put the "ActiveSheet" before "Range" i.e. :

Voltage = Application.WorksheetFunction.Average(ActiveSheet.Range("B1:B" & i))

Thank you so much!