Runtime error '438': Object doesn't support this property or method

[Pookiemeister]

Running office 365

Sub Filter()
        
        ActiveSheet.Activate
        ActiveSheet.Unprotect
        
        If ActiveSheet.Name <> Worksheets("WO Report Summary 4.0") Then
            Rows("1:1").Select
            Selection.AutoFilter
            cells.Select
            cells.EntireColumn.AutoFit
        Else
            Rows("1:1").Select
            Selection.AutoFilter
            cells.Select
            cells.EntireColumn.AutoFit
            Range("L5:M5").ColumnWidth = 10.14
        End If
        
        Worksheets("WO Report Summary 4.0").Protect

End Sub

Error occurs on this line:

If ActiveSheet.Name <> Worksheets("WO Report Summary 4.0") Then

Thank you

 

[MARK858]

Try just

If ActiveSheet.Name <> "WO Report Summary 4.0" Then

 

[Pookiemeister]

Thank you. That worked but why did removing the word "Worksheets" and "( )" cause this issue? Thanks.

 

[MARK858]

You're welcome.

Thank you. That worked but why did removing the word "Worksheets" and "( )" cause this issue? Thanks.

Because Worksheets("WO Report Summary 4.0") is an Object, whereas you needed the name of the Object. i.e. Worksheets("WO Report Summary 4.0").Name or more sensibly just "WO Report Summary 4.0"

 

[Pookiemeister]

Thank you for the explanation