On Nov 26, 8:30*am, "Per Jessen" wrote:
Jay,

What exactly do you need help with.

Regards,
Per

"jlclyde" skrev i ...



I am trying to sort all work sheets in a workbook by two different
keys. *The keys are different for each case of worksheet. *I am trying
to put together a For each *and a Select case. *Any help would be
appreciated. *Code is below.

Thanks,
Jay

Sub EditSheets()
* *Dim Wks As Worksheet
* *Dim LstRow As Long
* *Dim LstCol As Long

* *For Each Wks In ActiveWorkbook.Worksheets
* * * *Select Case LCase(Wks.Name)
* * * * * *Case "hkips", "napkin", "nsf", "gietz", "offset", "drill",
"laser"
* * * * * * * *With Worksheets(Wks.Name)
* * * * * * * * * *LstCol = .Range("IV4").End(xlLeft).Column
* * * * * * * * * *LstRow = .Range("A65536").End(xlUp).Row

* * * * * * * *.Range(.Cells(5, 1), .Cells(LstRow, LstCol)).Sort _
* * * * * * * * * *key1:=.Range("E5"), Order1:=xlAscending, _
* * * * * * * * * *Key2:=.Range("A5"), Order2:=xlAscending, _
* * * * * * * * * *Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
* * * * * * * * * *Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
* * * * * * * *End With
* * * * * *Case "rosback"
* * * * * * * *With Worksheets(Wks.Name)
* * * * * * * * * *LstCol = .Range("IV4").End(xlLeft).Column
* * * * * * * * * *LstRow = .Range("A65536").End(xlUp).Row

* * * * * * * *.Range(.Cells(5, 1), .Cells(LstRow, LstCol)).Sort _
* * * * * * * * * *key1:=.Range("D5"), Order1:=xlAscending, _
* * * * * * * * * *Key2:=.Range("A5"), Order2:=xlAscending, _
* * * * * * * * * *Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
* * * * * * * * * *Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
* * * * * * * *End With
* * * * * *Case Else
* * * * * * * *With Worksheets(Wks.Name)
* * * * * * * * * *LstCol = .Range("IV4").End(xlLeft).Column
* * * * * * * * * *LstRow = .Range("A65536").End(xlUp).Row

* * * * * * * *.Range(.Cells(5, 1), .Cells(LstRow, LstCol)).Sort _
* * * * * * * * * *key1:=.Range("C5"), Order1:=xlAscending, _
* * * * * * * * * *Key2:=.Range("A5"), Order2:=xlAscending, _
* * * * * * * * * *Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
* * * * * * * * * *Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal
* * * * * * * *End With
* * * *End Select
* *Next Wks
End Sub- Hide quoted text -

- Show quoted text -

I was looking for a way to sort all worksheets by two seperate keys.
I figured that part out and now need to resort the sheets by a
different key. I woudl like to Sort all sheets in the work book by A5
ascending. How is this done?
Thanks,
Jay