Apply macro to all sheets

Hello,

I have a macro that works for the active sheet but I want to make it work for all the sheets of the file.
the file is as follows:

Sub DeleteDashRows()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim SearchCriteria As String: SearchCriteria = "DIV"

ActiveSheet.Range("A1").Activate
On Error GoTo FoundAll
Dim CriteriaRow As Long
CriteriaRow = Cells.Find(What:=SearchCriteria, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row

While CriteriaRow > 0
ActiveSheet.Rows(CriteriaRow & ":" & CriteriaRow).Delete shift:=xlUp
On Error GoTo FoundAll
CriteriaRow = Cells.Find(What:=SearchCriteria, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Wend
GoTo FoundAll

FoundAll:
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub

End Sub

Many thanks in advance,

Costas

May be this way. I have not tried this but.

Please Login or Register  to view this content.

Hi Costasg
This code is a different approach. If you like it use it...if not lose it.

Please Login or Register  to view this content.

Hi Costasg

You're welcome...glad I could help.