Writing long array formula in VBA?

Hi,

I had a problem which was solved over in formulas section. I have this long array formula that I need to put into VBA, but I think it is too long and over the character limit.

Does anyone know how I can do this in vba?

=IFERROR(IF(LOOKUP(1E+100,CHOOSE({1,2,3,4},LOOKUP(2,1/((Today!$B3=Summary!$B$4:$B$1000)*(Today!$F3=Summary!$C$4:$C$1000)*OR(Today!$E3={"G","G2","G3","G4","D","D4"})),Summary!$D$4:$D$1000),LOOKUP(2,1/((Today!$B3=Summary!$N$4:$N$1000)*(Today!$F3=Summary!$O$4:$O$1000)*OR(Today!$E3={"D5","S5"})),Summary!$P$4:$P$1000),LOOKUP(2,1/((Today!$B3=Summary!$Z$4:$Z$1000)*(Today!$F3=Summary!$AA$4:$AA$1000)*OR(Today!$E3={"S","Sl6","Sl7","St6"})),Summary!$AB$4:$AB$1000),LOOKUP(2,1/((Today!$B3=Summary!$AL4:$AL$1000)*(Today!$F3=Summary!$AM$4:$AM$1000)*OR(Today!$E3={"H","H8","H9","H10"})),Summary!$AN$4:$AN$1000)))>0.05,Today!$D3,""),"No data")

Hi Trebor, thanks. I thought the 255 character limit might have been affecting it. I will try yours and see how I go!