Perhaps

Function DivideBy(denom, div)

If denom = 0 And div = 0 Then
DivideBy = 1
Else
DivideBy = denom / div
End If

End Function

MsgBox DivideBy(0,0)

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"integreat" wrote
in message ...

Is there a way to force VBA to do a division by zero without giving the
"divide by zero" error. I need a way to overrride this error but need
0/0 to equal 1


--
integreat
------------------------------------------------------------------------
integreat's Profile:
http://www.excelforum.com/member.php...o&userid=34282
View this thread: http://www.excelforum.com/showthread...hreadid=566460