Macro for Advanced Filter stops before end

[cesardltr]

Sub AdvFilter()'
' AdvFilter Macro
'
' Acceso directo: Ctrl+Mayús+F
'
    ActiveSheet.Unprotect
    Application.Goto Reference:="Home"
    Range("B4").Select
    Range("Sort").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("Crit"), Unique:=False
    Application.Goto Reference:="Home"
    Application.Goto Reference:="Next"
    ActiveSheet.Protect AllowFormattingCells:=True
End Sub

which works fine up to the filter, but doesnot do the Application.Goto Reference:="Home" and subsequent instructions.

¿What am I missing?

 

[venkat1926]

TRY THIS

application.Goto  RANGE("HOME")

I presume HOME is a range name

 

[cesardltr]

Thank you Venkat. Didn't work. Behavior is exactly the same: After running the macro the active cells becomes the first in the filter and then it stops.

Yes, HOME AND NEXT are named cells.

TRY THIS

application.Goto  RANGE("HOME")

I presume HOME is a range name

 

[venkat1926]

was range("home") filtered out due to advanced filter?????

 

[cesardltr]

was range("home") filtered out due to advanced filter?????

No, none of the two named cells are filtered. They both are out of the range "Sort".

Thanks

 

[venkat1926]

not clear. are these ranges within (within) the filtered data.

anyhow post a small extract of data and also indicate output of the macro.