I am trying to fill an array but keep getting a Runtime Error 6 Overflow: the code that fills the array is :
For I = 0 to count
Alpha(i) = Application.WorksheetFunction.Acos(1 - (Fh(i) / r))
Pw(i) = Alpha(i) * D
Rh(i) = (D / 4) * (1 - Sin(2 * Alpha(i)) / (2 * Alpha(i)))
Af(i) = Rh(i) * Pw(i)...