Hi All,
I'm using the following code to sort the values in Colum V. Row 13 includes the header, but when the code runs it skips the first row of data (i.e. Row 14) in the sort. I've tried changing the header reference to .Header=xlGuess and the same thing happens, I've also tried .Header=xlNo and I get a Run-Time error '5', "Invalid Procedure Call of Argument". I've tried changing the range to exclude the header row, but the sort still skips the first row of data. I've even tried changing the range to include the row above the header row (i.e. Row 12) in hopes it would skip the actual header row and start sorting where I want it to, with row 14. No luck...
I've seen other threads where they suggest using .Header=xlNo, but I keep getting the error message.
Any help you can provide would be greatly appreciated
I'm using the following code to sort the values in Colum V. Row 13 includes the header, but when the code runs it skips the first row of data (i.e. Row 14) in the sort. I've tried changing the header reference to .Header=xlGuess and the same thing happens, I've also tried .Header=xlNo and I get a Run-Time error '5', "Invalid Procedure Call of Argument". I've tried changing the range to exclude the header row, but the sort still skips the first row of data. I've even tried changing the range to include the row above the header row (i.e. Row 12) in hopes it would skip the actual header row and start sorting where I want it to, with row 14. No luck...
I've seen other threads where they suggest using .Header=xlNo, but I keep getting the error message.
Any help you can provide would be greatly appreciated
VBA Code:
Sub SortRanking()
Range("RangeMODC2DataAll").AutoFilter Field:=1, Criteria1:="<>"
ActiveWorkbook.Worksheets("MODC2").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MODC2").AutoFilter.Sort.SortFields.Add2 Key:=Range _
("V13:V174"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("MODC2").AutoFilter.Sort
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End Sub