etheer
11-21-2012, 01:08 PM
Hi
I have code auto sort but not work good i need edit it
Please
Private Sub Worksheet_Calculate()
Dim c As Range
Set rg = Range("I7:I" & Rows.Count) 'Column containing names to sort
Range("B7:Q" & Rows.Count).Sort Key1:=rg, _
Order1:=xlDescending, _
Header:=xlNo
End Sub
I have code auto sort but not work good i need edit it
Please
Private Sub Worksheet_Calculate()
Dim c As Range
Set rg = Range("I7:I" & Rows.Count) 'Column containing names to sort
Range("B7:Q" & Rows.Count).Sort Key1:=rg, _
Order1:=xlDescending, _
Header:=xlNo
End Sub