Tüm sayfalardaki süzüleni kaldırma.

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; aşağıdaki kod ile aktif sayfadaki tüm süzülenleri kaldırıyorum. Bunu Bütün sayfalardaki süzülenleri nasıl kaldırırım. Teşekkürler.
Sub SÜZÜLENİ_ÇÖZ()
On Error GoTo Son
ActiveSheet.ShowAllData
Son:
End Sub

 

[ÖmerFaruk]

Sub SÜZÜLENİ_ÇÖZ()
    On Error Resume Next
    For i = 1 To Worksheets.Count
        Worksheets(i).ShowAllData
    Next
    On Error GoTo 0
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler Sayın abim; Çok güzel olmuş eline sağlık. Dua ile kal hayırlı bayramlar.