or


Range("b3").Select
Selection.FormulaArray = "=MIN(if(a2:a1000,a2:a100))"

Mike
"ezil" wrote:

The following array formula is working when directly written in cell. But I
have to do
this through a macro. How to write the following command line correctly in a
macro.

Range("b3") = "=MIN(if(a2:a1000,a2:a100))"