How Use IFERROR(2007) Function in Excel 2003 (UDF IFERROR2003)

   Hi ! Here Suggest to you

[ In 2007 Let's Use 2003 IFERROR ] Let's Look & Find
7  8  9  10	A B C D E F Name Tel Finder Answer Kim 101 kim 101 101 Hong 304 johan None None Jhon 502 hong 304 304

Used Formula ...(With Running MicrosoftExcel Ver 2003)
No	Addr'	If use below Formula, You'll Get Result as Right	Result	Etc
1	E8	=IF(ISERROR(VLOOKUP(D8,$A$8:$B$10,2,0)),"None",VLOOKUP(D8,$A$8:$B$10,2,0))	101
2		E8  His Formula Used This Cell  -> E8:E10
3	F8	=IFERROR2003(VLOOKUP(D8,$A$8:$B$10,2,0),"None")	101
4		F8  His Formula Used This Cell  -> F8:F10
How about this suggest?

Function IFERROR2003(WriteFormula, WriteAnswer)
Dim Answ As Variant
On Error Resume Next
Answ = Application.Evaluate(WriteFormula)
If Not (IsError(Answ)) Then
     IFERROR2003 = Answ
Else
Select Case Answ
     Case CVErr(xlErrDiv0):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNA):     IFERROR2003 = WriteAnswer
     Case CVErr(xlErrName):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNull):   IFERROR2003 = WriteAnswer
     Case CVErr(xlErrNum):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrRef):    IFERROR2003 = WriteAnswer
     Case CVErr(xlErrValue):  IFERROR2003 = WriteAnswer
     Case Else:               IFERROR2003 = Answ
End Select
End If
End Function
Any Bug Or Ask ... Mail Or Post Reply