Run Time Error '1004': Select Method of Worksheet class failed

[KateP]

Hi, I'm having trouble with this error that appears whenever I try to run macros.

Sub Filter()
   Sheets("Combination").Select
   Range("A4:AJ598").AutoFilter

   ActiveSheet.Range("$A$4:$AJ$598").AutoFilter Field:=1, Criteria1:="Y"
   ActiveSheet.AutoFilter.Range.Copy
   Sheets("Model").Select
   Range("A4").Select
   ActiveSheet.Paste
End Sub

 

[KateP]

Also, forgot to tell that the selected worksheet there is initially hidden.

 

[Michael M]

Try it this way...

Sub Filter()
   With Sheets("Combination")
       .Range("A4:AJ598").AutoFilter
       .Range("$A$4:$AJ$598").AutoFilter Field:=1, Criteria1:="Y"
       .AutoFilter.Range.Copy Sheets("Model").Range("A4")
   End With
End Sub

 

[KateP]

Thank you so much Michael M!

This works fine although, I've tried replacing the .Select with .Activate.
and that works too. Would it be fine to do this instead With Sheets?


Regards,
KateP

 

[Michael M]

Yes, but why....you don't need to Select OR Activate a sheet to work with it !!
Using With sheets is much faster !!