sorting all aheets by column D

[bartoni]

Hi,

Ive got a number of workbooks with around 10 sheets in each. How would I write a macro to sort all of the sheets by column D at the same time without individually having to sort each sheet manually.

Many Thanks

 

[SteveO59L]

Try something like this

Sub Sort_Col_D()
Dim ws As Worksheet
Application.ScreenUpdating = False

For Each ws In ActiveWorkbook.Worksheets
ws.Activate
Columns("d:d").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next ws
Application.ScreenUpdating = True

End Sub


HTH