Sub ReturnSales()
'
'
ActiveWorkbook.Worksheets("AppleSales").ListObjects("Table1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("ApplesSales").ListObjects("Table1").Sort.SortFields. _
Add2 Key:=Range("Table1[[#All],[2017 Sales]]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("AppleSales").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
The code above says the object does not support this property or method? What does that mean?
Bookmarks