Looping Macro Across All Sheet with Exceptions

[gabbana]

Hi,

I've got some simple code, that I can get to work on one sheet quite well. It removes any rows with date in Column "K" that are over 180 days in the future. I need to run it across all the sheets in my workbook, with the exceptions of "Master", "Exceptions", "Unlimited" and "Closed"

I've tried this:

Sub Remove180Loop()
    Dim ws As Worksheet
    Dim i As Integer
    Dim Lastrow As Long, x As Long
    
        For Each ws In ActiveWorkbook.Worksheets
        
                For i = 1 To Sheets.Count
                    If Worksheets(i).Name <> "Master" Or Worksheets(i).Name <> "Exceptions" Or _
                    Worksheets(i).Name <> "Unlimited" Or Worksheets(i).Name <> "Closed" Then
                        Lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).row
                        For x = Lastrow To 5 Step -1
                            If Cells(x, "K").Value > Date + 180 Then Rows(x).Delete
                        Next
                    End If
                Next I

      Next ws
      
End Sub

It still works on the first sheet, but won't loop through the book. Any help would be great.

[Norie]

Try this.

Sub Remove180Loop()
Dim ws As Worksheet
Dim i As Integer
Dim Lastrow As Long, x As Long

    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "Master" Or .Name <> "Exceptions" Or _
               .Name <> "Unlimited" Or .Name <> "Closed" Then
                Lastrow = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
                For x = Lastrow To 5 Step -1
                    If .Cells(x, "K").Value > Date + 180 Then .Rows(x).Delete
                Next
            End If
        End With
    Next ws

End Sub

[gabbana]

Perfect!!. Works a treat. Was nearly there!

[gabbana]

Perfect!!. Works a treat. Was nearly there!

Spoke too soon, it's running on the excluded sheets.

[Norie]

Change the Or(s) in the If statement to And(s).

[gabbana]

Change the Or(s) in the If statement to And(s).

I'd just worked that out! Thank you very much for your help.