I can't recommend using this but you could also do this:

Sub Macro1()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Text = "#N/A" Then c.Formula = ""
Next
End Sub

Cliff Edwards