Unnecessary test for TRUE

[vba]

ActiveCell.Formula = "=IF(ISERROR(VLOOKUP($A73,Sheet1!$A$1:$M$173,10,0)),0,VLOOKUP($A73,Sheet1!$ A$1:$M$173,10,0))"
[/vba]