sorting in multiple sheets

[Ren]

Hi Tom,

i have multiple sheets from A to Z
and i need to sort column L
i used this code

Sub sort()
cells.sort Key1:=range("L2"), Header:=xlYes
End Sub

it's working for the single sheet.
but i want it for all the sheets
how to modify your code.i tried but could't get thru.

thanks in advance
Ren

 

[Nigel]

If it is all sheets in workbook then use this.....

Sub sort()
Dim wS as Worksheet
For Each wS in Worksheets
wS.cells.sort Key1:=wS.Range("L2"), Header:=xlYes
Next
End Sub

--

Regards,
Nigel
(e-mail address removed)

Hi Tom,

i have multiple sheets from A to Z
and i need to sort column L
i used this code

Sub sort()
cells.sort Key1:=range("L2"), Header:=xlYes
End Sub

it's working for the single sheet.
but i want it for all the sheets
how to modify your code.i tried but could't get thru.

thanks in advance
Ren

 

[Ren]

Hey thanks,

i was adding the workbook before the worksheet.so i was getting errors.
anyway it's working perfectly fine
thanks

Ren

If it is all sheets in workbook then use this.....

Sub sort()
Dim wS as Worksheet
For Each wS in Worksheets
wS.cells.sort Key1:=wS.Range("L2"), Header:=xlYes
Next
End Sub

--

Regards,
Nigel
(e-mail address removed)