With all sheets?

  • Thread starter Thread starter Maarkr
  • Start date Start date
M

Maarkr

I got this working but I want to do this with all sheets in the workbook.

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
With ActiveSheet
.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
 
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
 
Hi there Patrick.

Haven't seen you around for a long time, although I don't spend much time in the
programming group.

Hope all is well.

Gord Dibben
 
Back
Top