formula to VBA

[mattress58]

I am trying to get the formula below to VBA.

=SMALL((I7,L7,N7),1+FREQUENCY((I7,L7,N7),0))

here is what I have that is not working

range("A1") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.SMALL((Range("I70"),Range("L7"),Range("N7")),1+Application.WorksheetFunction.FREQUENCY(Range("I70"),Range("L7"),Range("N7")) , 0), "N/A")

[Kaper]

range("A1") = Application.WorksheetFunction.IfError(Application.WorksheetFunction.SMALL((Range("I70"),Range("L7"),Range("N7")),1+Application.WorksheetFunction.FREQUENCY((Range("I70"),Range("L7"),Range("N7")) , 0)), "N/A")

ps. there is probably also easier way. but added parentheses should help
ps2. as usually, dummy workbok for tests would make answering easier.

[StuCram]

Try this to insert the formula into cell A1:

range("A1").formula = "=SMALL((I7,L7,N7),1+FREQUENCY((I7,L7,N7),0))"

Hope this helps.
-Stu