Ayuda con 'ActiveSheet.ShowAllData'

Hola, que tal?

Tengo una macro que ejecutar en una hoja, esta hoja tiene filtros y hay
veces que necesito ejecutar la macro bien sea con los filtros activos o
mostrando todos los datos.
Mi macro contiene esta linea de código para cuando está la hoja con
filtros:

ActiveSheet.ShowAllData

y cuando tengo todos los datos mostrados (me refiero, que cuando la
hoja está sin filtrar) ejecuto la macro y me dá error de
interrupción en esta linea, claro está porque quiere mostar todos los
datos y está todo mostrador.

Y ahora pergunto, como puedo hacer para:

Poder ejecutar la macro bien tengas todos los datos mostrados ó
filtrados,
ó si no se puede hacer esto pues no me importaria hacer que si está
mostrado todos los datos no se ejecute la macro, y mande un mensaje
advirtiendo el problema.

Venga, un saludo y gracias,
jose