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
<(E-Mail Removed)> 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