Borrar AutoFiltro

[home can]

Hola amigos.

En una hoja con AutoFiltro quiero usar una macro para borrar una o varias selecciones de filtrado de forma que restablezca la totalidad de la tabla. 

He probado con la siguiente instrucción:

ActiveSheet.ListObjects("datos").Range.AutoFilter

Cumple con la función de borrar la selección y restablecer la tabla pero quita el modo de Autofiltro, lo cual no interesa.
¿Alguien me puede ayudar con otra opción que permita borrar la selección manteniendo el modo AutoFiltro?

Gracias.

ejemplo.xls

[Antoni]

Prueba así.

Sub actualizar1(): On Error Resume Next
   ActiveSheet.Range("A1").Select
   ActiveSheet.ShowAllData
End Sub

 

[home can]

Gracias Antoni. Funciona a la perfección.

Tema cerrado.