IfError

[tiredofit]

Why does this not work?

Dim DataArray(1 To 10, 1 To 10) As Variant

Dim a As Integer, b As Integer

a = 1

b = 0

DataArray(1, 1) = Application.WorksheetFunction.IfError(a / b, 0)

I expected the above to return 0.

Instead I get a division by zero error message.

Thanks

 

[RoryA]

a/b is evaluated first in VBA and the result is passed to IfError. There is largely no point to IfError in VBA.

 

[tiredofit]

So instead I need to handle the error myself first?

 

[RoryA]

Yes. Either use an error handler or just test for b being 0 first.

 

[tiredofit]

Thanks