Deleting rows based on cell value

try this:

Sub deleting()
Dim Sheet As Worksheet
Dim Cell As Range

For Each Sheet In ActiveWorkbook.Worksheets
    For Each Cell In Sheet.Range("BR13:BR350")
        If Cell.Value = 0 Or Cell.Value = "" Then
            Cell.EntireRow.Delete
        End If
    Next Cell
Next Sheet
End Sub

Give a chance to next code

Option Explicit

Sub Treat()
Dim DelRg  As Range
Dim FR  As Integer, LR  As Integer, I As Integer
Dim WkSh As String
Dim WS  As Worksheet
Dim WkCol As String
    WkSh = "March,April,May,June,July,August,Septembre,October,Novembre"
    WkCol = "BR"
    FR = 13
    LR = 350
    For Each WS In Worksheets
        If (WkSh Like "*" & WS.Name & "*") Then
            With WS
                Set DelRg = Cells(LR + 1, 1)
                For I = FR To LR
                    If .Cells(I, WkCol) = 0 Then Set DelRg = Union(DelRg, .Cells(I, 1))
                Next
            End With
            DelRg.EntireRow.Delete
        End If
    Next
End Sub

You have to put the code in a module in your file.
Developer > Record Macro > OK
Developer > Stop Recording
Developer > Macros > Macro1 > Edit
Then using Control +c and Control + v
copy and paste the macro sent to replace macro1 or to put it just before or after

OR
You could keep the file attached as a toolbox
Load the toolbox in Excel and the file to treat.
When you are in the file to treat do Control + a
(short key to launch the macro)

" developer option"
See File > Option > Customize the Ribbon >
Select Developer in the Right Window
Note: If you want to develop macro you need this menu

See Tools > Macro
- Record New Macro > OK
- Stop Recording
- Macros > Edit

Did you first make a test with the file sent ? Is it working
If you have issue with your file, prepare and send a sample of your file, removing personal info.

Here we are.
2 issues:
- You have to use extension .xlsm
- There was an error see next code

Option Explicit

Sub Treat()
Dim DelRg  As Range
Dim FR  As Integer, LR  As Integer, I As Integer
Dim WkSh As String
Dim WS  As Worksheet
Dim WkCol As String
    WkSh = "March,April,May,June,July,August,September,October,November"
    WkCol = "BR"
    FR = 13
    LR = 350
    For Each WS In Worksheets
        If (WkSh Like "*" & WS.Name & "*") Then
            With WS
                Set DelRg = .Cells(LR + 1, 1)  **********
                For I = FR To LR
                    If .Cells(I, WkCol) = 0 Then Set DelRg = Union(DelRg, .Cells(I, 1))
                Next
            End With
            DelRg.EntireRow.Delete
        End If
    Next
End Sub

Are all files in the same folder?

So it can be done, but please open a new thread to avoid confusion between the needs

To be deleted

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

I apologize, I posted an answer here and it was not the right thread as I suggested to open a new one.
I deleted the answer here and post it the new thread.

Can you give more detail how it happens: are some files treated and can you post back the full macro or file prepared

Hi and thanks for the response again. I am running them all from the same folder as instructed, with the ToolBox.xls file. It starts to process the files and then stops with the type mismatch error. Code below

Option Explicit

Sub Treat()
Dim DelRg  As Range
Dim FR  As Integer, LR  As Integer, I As Integer
Dim WkSh As String
Dim WS  As Worksheet
Dim WkCol As String
    WkSh = "March,April,May,June,July,August,September,October,November"
    WkCol = "BR"
    FR = 13
    LR = 350
    For Each WS In Worksheets
        If (WkSh Like "*" & WS.Name & "*") Then
            With WS
                Set DelRg = .Cells(LR + 1, 1)
                For I = FR To LR
                    If .Cells(I, WkCol) = 0 Then Set DelRg = Union(DelRg, .Cells(I, 1))
                Next
            End With
            DelRg.EntireRow.Delete
        End If
    Next
End Sub


Sub TreatAllFile()
Dim Masq_File  As String
Dim DIR_Result  As String
Dim StartRow As Integer
Dim I  As Integer
Dim ThisFileName  As String
Dim WkPath As String
Dim WkStg  As String
Dim DispCol As String

Application.ScreenUpdating = False
'-----   INIT
    WkPath = ActiveWorkbook.Path
    ThisFileName = ActiveWorkbook.Name
    StartRow = 5
    DispCol = "B"
'    Range("WkPath") = WkPath
    Range(Cells(StartRow, DispCol), Cells(Rows.Count, DispCol).End(xlUp)).ClearContents

'------------ LOOK IF  EXISTS  SOME FILES
    Masq_File = WkPath & "\*.*"
    DIR_Result = Dir(Masq_File, 0)  '  0 --> READ  ONLY FILES
      While (DIR_Result <> "")
        If (DIR_Result <> ThisFileName) Then
            Cells(StartRow + I, DispCol) = DIR_Result
            WkStg = WkPath & "\" & DIR_Result
            Workbooks.Open Filename:=WkStg
            Application.Run ThisFileName & "!Treat"
            ActiveWindow.Close SaveChanges:=True   ' QUIT  WITH  save
        End If
        I = I + 1
        DIR_Result = Dir
      Wend
Application.ScreenUpdating = True
End Sub

would you like me to post a file that has been treated OK and also one that is failing to run?

Ok I have attached a zip with the folder I'm working on. Inside are three excel files 1957.xls 1961.xls and ToolBox.xls.
1957 should purge without a problem. 1961 will give the type mismatch error I'm having the problem with.
Out of the 50 files needing to be processed around 12 are failing like this. #

I just open the toolbox.xls and then hit alt+f8 then select to run TreatAllFile macro.

many thanks look forward to your response

J

"would you like me to post a file that has been treated OK and also one that is failing to run? "

yes of course

There an issue because there an error in cell BR78
Bext code delete the row when there is 0 but don't the check when there is an error

Option Explicit

Sub Treat()
Dim DelRg  As Range
Dim FR  As Integer, LR  As Integer, I As Integer
Dim WkSh As String
Dim WS  As Worksheet
Dim WkCol As String
    WkSh = "March,April,May,June,July,August,September,October,November"
    WkCol = "BR"
    FR = 13
    LR = 350
    For Each WS In Worksheets
        If (WkSh Like "*" & WS.Name & "*") Then
            With WS
                Set DelRg = .Cells(LR + 1, 1)
                For I = FR To LR
                    If IsError(.Cells(I, WkCol)) Then
                    Else
                        If .Cells(I, WkCol) = 0 Then Set DelRg = Union(DelRg, .Cells(I, 1))
                    End If
                Next
            End With
            DelRg.EntireRow.Delete
        End If
    Next
End Sub