excel vba - Optimise Autofilter Visible Dropdown Loop -

i'm trying optimise code below;

with range("a2:iw2")     = 1 8         .autofilter field:=i, visibledropdown:=true     next     = 9 253         .autofilter field:=i, visibledropdown:=false     next     = 254 257         .autofilter field:=i, visibledropdown:=false     next end 

i've searched everywhere yet can't find suits requirements. if can running fast it'll make whole spreadsheet lot more manageable!

thank , great site! regards, matt

you mean this?

application.screenupdating = false  range("a2:iw2")     = 1 257         select case         case 1 8: .autofilter field:=i, visibledropdown:=true         case else: .autofilter field:=i, visibledropdown:=false         end select     next end  application.screenupdating = true