delete entire rows based on cell value in multiple sheets

Hi,

I want to run the below code for multiple sheets in a workbook but it is only working for first sheet.

here is the code.

Sub Find_ANN()
Dim rng As Range
Dim what As String

what = "#DIV/0!"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End Sub

please modify it for me so that it can run for all worksheets in a workbook.

Regards

See if below code is working

HTML Code: 

Thank you very much Dinesh.

It works.

once again thankyou.

Your Welcome...

Please mark the thread as 'Solved' using Thread tools