Vba Filtreleme

[huge]

Merhaba,
hazırlamış olduğum yapıda sayfada 1 adet buton var bu butona tıklayınca altta bilgiler listeleniyor. otomatik olarak filtre özelliği açık geliyor ancak içeride filtreleme yapılmamışsa çalıştırdığımda hata almaktayım. Filtre var ise onu ActiveSheet.ShowAllData ile temizletip verileri getirtiyorum burada nasıl bir kontrol yolu izlemeliyim. Vba da yeniyim yardımcı olur musunuz?

 

[mancubus]

?

    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If