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


"Maarkr" wrote:

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

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

On Mon, 24 Mar 2008 06:40:01 -0700, Patrick Molloy
wrote:

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


"Maarkr" wrote:

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