Error Cell "#N/A"
It looks like you might be able to do that without the loop...
Dim R As Range
On Error Resume Next
Set R = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormu las, xlErrors)
On Error GoTo 0
If Not R Is Nothing Then
R.Value = 0
R.NumberFormat = "0.00"
End If
Ignore this code... it will change ALL error cells to 0.00, not just #N/A
errors.
Rick
|