Loop Macro for entire sheet

[rugbyu]

I have a vba script that looks at my data sheet and finds any #N/A error then selects and delete’s the active row. Right now I have to execute the macro multiple times to search the entire sheet. I was wondering if I could get some help to make this loop until all records in the sheet have been searched.

Thanks for your help

Here is my macro

Cells.Find(What:="#N/A", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp


End Sub

 

[mirabeau]

Sub allsheet()
Dim fnd
Do
Set fnd = Cells.Find(What:="#N/A", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not fnd Is Nothing Then fnd.Delete xlUp Else Exit Do
Loop
End Sub

 

[rugbyu]

works perfectly, thanks for the help.