DIM WS as Worksheet   '''ADD THIS
With Application
       CalcMode = .Calculation
       .Calculation = xlCalculationManual
       .ScreenUpdating = False
End With
FOR EACH WS in WORKSHEETS '''ADD THIS
 WITH WS   '''ADD THIS
       .DisplayPageBreaks = False
       StartRow = 2
       EndRow = 200
       For Lrow = EndRow To StartRow Step -1
           If IsError(.Cells(Lrow, "B").Value) Then
               'Do nothing, This avoid a error if there is a error in the
cell
           ElseIf .Cells(Lrow, "B").Value Like "Sum:*" Then
.Rows(Lrow).Delete
               'This will delete each row with the Value 0 in Column M.
           End If
       Next
   End With
NEXT '''ADD THIS