Filtro Avanzado

[JAVISHALOM]

Un gran saludo..

Tengo una macro que filtra  de 120 preguntas, las que mayor puntaje hayan obtenido, estaba funcionando perfectamente con la hoja protegida.

Pero de un momento a otro comenzó a mostrar error y no funciona.  Adjunto la macro, agradezco de antemano la ayuda para solucionar este impase...

Sub FILTRO ()

Dim RNG As Range

Set RNG = Active Sheet.Range("Xxx")

RNG.AdvancedFilter Action:=xlFilter Copy, CriterialRange:=_

Active Sheet.ListObjects("Tabla1").Range, _

copytorange:=("B180"), Unique:=False

Sheets ("Xxx").Select End sub

 

 

 

 

 

[JAVISHALOM]

Gracias tema cerrado. En la ventana proteger debí quitar permitir Autofiltro y Ordenar.  Habilité estas dos opciones y listo. Funciona de maravilla...