Code
- r = Range("c65536").End(xlUp).Row
- Range("a5:G" & r).Select
- Selection.Sort Key1:=Range("G5"), Order1:=xlAscending, Key2:=Range("F5") _
- , Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
- xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
- DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
- xlSortNormal
- Rows("4:" & r).Select
- For i = 5 To r
- Rows(i).Select
- If i Mod 2 = 0 Then
- Selection.Interior.ColorIndex = xlNone
- Else
- Selection.Interior.ColorIndex = 36
- End If
- Next
- Range("j5").Select
- Application.Calculation = xlCalculationAutomat
this sorts range from A to G and set color to each second row how can I include S column in this range
I mean that cells in column S are moved with cells from columns A to G
Any help would be apreciated
thnx