Ordena a Coluna A em todas as Abas com um loopins usando o AutoFiltro:
Sub Filter_All_Sheets()Dim WS As Object
For Each WS In Worksheets
With WS.Range("A1").AutoFilter.Sort Key1:=WS.Range("A1"), Order1:=xlAscending, Header:= _xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _DataOption1:=xlSortNormalEnd With
Next WSEnd Sub
Tags: Excel, VBA, Loop, Sheets, sheet, Looping, Abas, Filtro, filter, autofilter,

Nenhum comentário:
Postar um comentário