I have a spreadsheet that was created in Excel 2016, but users may have versions back to 2010.
I have some simple Sort VBA that works fine in 2016, but gives an error code in 2010. (see screen shot of error).
SortError.png
How can I adjust my code to make it work for the earlier version of Excel?
Here's the code:
Sub SortCakeBoxes()
'
' SortCakeBoxes Macro
' Sorts Cake Boxes section of Main Materials sheet.
'
'
Range("CakeBoxesTable").Select
ActiveWorkbook.Worksheets("Main Materials Lists").ListObjects("CakeBoxesTable") _
.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Main Materials Lists").ListObjects("CakeBoxesTable") _
.Sort.SortFields.Add2 Key:=Range("CakeBoxesTable[Box Description]"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Main Materials Lists").ListObjects( _
"CakeBoxesTable").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C12").Select
End Sub
Bookmarks