loop and fine & replace

[Guest]

I need to loop through an entire range ("A1:X16"), looking at each cell to
see if it has #N/A in it. If N/A is not found I need to close the workbook.
If it is found, I need to replace it with "" save and close the workbook.
The reason I'm looping first rather than just find and replacing is because
when the data isn't found, an excel message box comes up saying no data could
be found and I want to avoid this message box. Any ideas on how to do this?
I'm using Visual Studio rather than VBA, they are very similar but a few
things are different, but any ideas will be greatly appreciated! Thanks!

 

[Bob Phillips]

VBA, you will have to adapt

fFound = False
For Each cell in Range("A1:X16")
If Application.ISNA(cell.value) then
cellValue = ""
fFound= True
EndIf
Next cell

If fFound Then
Activeworkbook.Save
Endif

Activeworkbook.Close

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Thank you!