Code:
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?