Auto-Filter zurücksetzen mit Makro

[christo_f]

Hallo Excelbefürworter,
ich habe durch Aufzeichnen folgendes kleines Makro erstellt. 
Der Rücksprung funktioniert tadellos, nur bekomme ich eine Fehlermeldung, wenn kein Filter gesetzt ist Wie muss ich das MAkro verändern, damit dieser Fall abgefangen wird?
Vielen Dank für Eure Hilfe.
LG


Sub Makro2()

'
' Makro2 Makro

' Alle Autofilter zurücksetzen
' und Gehe zu "erste leere Zelle" in Arbeitsblatt soundso.

'
    ActiveSheet.ShowAllData
    Application.Goto Reference:="erste_leere_Zelle"
End Sub

[Crazy Tom]

Hallo

eine Möglichkeit

Code:

On Error Resume Next
ActiveSheet.ShowAllData
On Error Goto 0

MfG Tom

[christo_f]

Danke Tom,
hat mir sehr geholfen
LG