150 süzgeçi bir anda açma

[gecemavisi]

Saygıdeğer dostlar;
Benim 150 tane süzgeçim var ama onları açmak bayağı zaman alıyor. Hızlı bir şekilde açmanın bir metodu yok mu sizce?

For x = 1 To 150
Selection.AutoFilter Field:=x
Next
MsgBox ("Tüm süzgeçler açıldı.")

Yardımlarınız için saygılarımı ve sevgilerimi sunuyorum...
Sizleri ve www.Excel.Web.Tr 'yi çok seviyorum

 

[Levent Menteşoğlu]

Siz zaten kodu vermişsiniz. Yada aşağıdaki gibide olabilir.

[vb:1:c70279cb29][1:1].AutoFilter
[1:1].AutoFilter
[/vb:1:c70279cb29]

 

[gecemavisi]

Sn Levent Bey;
Zekanıza Bilginize hayranım. Teşekkürlerimi sunuyorum