Sub dd()
MsgBox
Application.Evaluate("=ROUND(C5*H5*G5*IF(B15=""12. 7mm"",0.774,1.101)-IF(
C5<3,0,H5*IF(B15=""12.7mm"",0.774,1.101)*(SUMPRODU CT((ROW(INDIRECT(""1:"
"&INT((C5-1)/2)))*K15)*2)-IF(MOD(C5,2),K15*INT(C5/2),0))),0)")
End Sub

this function is not working.
but the function is work well in worksheet.





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