Prevent #DIV/0 error Code Needed

Thanks for your replies.....

This is a piece of code I found - but it does not seem to work very well

 Sub DelDiv0()
' Removes the #DIV/0! values from all cells in the selected
' range and replaces them with a zero value
 Dim Cel As Range
 For Each Cel In Selection
 If IsError(Cel.Value) Then
 If Cel.Value = CVErr(xlErrDiv0) Then Cel.Value = 0
 End If
 Next Cel
End Sub

The #DIV/0! still propagates the cells

Any thoughts

John