AutoFilter

[josros60]

how can i change the code below to activesheet instead of referencing sheet name so i can use in other sheets and don't have to change sheet name everytime.

Sub ApplyFiters_Accrued()[COLOR=#ff0000]With Worksheets("OCT").Range("A3")[/COLOR]
.AutoFilter Field:=5, Criteria1:=""
.AutoFilter Field:=9, Criteria1:="COGS"
End With

thanks.

 

[Michael M]

Try using

Sub ApplyFiters_Accrued()
With activesheet.Range("A3")
   .AutoFilter Field:=5, Criteria1:=""
   .AutoFilter Field:=9, Criteria1:="COGS"
End With

 

[josros60]

Thank you. it worked excellent.