Macro Question

[Beekman]

Below is part of my macro that works o.k.

Sheets("MONDAY").Select
Application.ScreenUpdating = False
With Range("A10", Range("A" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="=4027"
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilter
End With
Application.ScreenUpdating = False
With Range("A10", Range("A" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="=4100"
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilter
End With

The macro goes on repeating with the criterial value changing.It also goes onto "Tuesday", "Wednesday", "Thursday", "Friday"
Is there a better and shorter way of doing the above and get the same result.

Many thanks in advance.

 

[VoG]

Try

For Each ws In Sheets(Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday"))
    With ws
        With .Range("A10", .Range("A" & Rows.Count).End(xlUp))
            .AutoFilter Field:=1, Criteria1:="=4027"
            On Error Resume Next
            .Offset(1).Resize(.Rows.Count - 1) _
            .SpecialCells(xlCellTypeVisible).EntireRow.Delete
            On Error GoTo 0
            .AutoFilter
        End With
        With .Range("A10", .Range("A" & Rows.Count).End(xlUp))
            .AutoFilter Field:=1, Criteria1:="=4100"
            On Error Resume Next
            .Offset(1).Resize(.Rows.Count - 1) _
            .SpecialCells(xlCellTypeVisible).EntireRow.Delete
            On Error GoTo 0
            .AutoFilter
        End With
    End With
Next ws

 

[Beekman]

Thanks VoG . Your Version works fine if you want the same criterial for each day, but i was seeing if you can condense the repeating of the eg

Application.ScreenUpdating = False
With Range("A10", Range("A" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="=4130"
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilter
End With
Application.ScreenUpdating = False
With Range("A10", Range("A" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:="=4131"
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
.AutoFilter
End With

when I have multiple "Criterial" values for each day, but different ones for each day of the week