Sub problem()
ActiveCell.FormulaArray = _
"=IF(ISTEXT(INDEX(I$1:I1,MAX(C2=$C$1:C1)*(D2=$D$1: D1)*(E2=$E$1:E1)*(F2=$
F$1:F1)*ROW($C$1:C1)))),0,INDEX(I$1:I1,MAX((C2=$C$ 1:C1)*(D2=$D$1:D1)*(E2
=$E$1:E1)*(F2=$F$1:F1)*ROW($C$1:C1))))+G2-H2"
End Sub

the upper source is error.
but, the upper array function is worked well in excel worksheet.

what's the problem?



*** Sent via Developersdex http://www.developersdex.com ***