Excel2016 sort 宏录制后, 重装excel运行报错 Run-Time error ‘438‘

Excel2016 sort 宏录制后, 重装excel运行报错 Run-Time error ‘438’
目录:
(1)遇到的问题, 子程序sort, 报错 Run-Time error ‘438’
(2)仔细对比debugging过程
(3)问题解决, 重新录制宏对比, add2->add
(4)代码.

(1)遇到的问题,
用了N年的sort/subtotal工具, 在出差前后居然不能用了,郁闷.

(2)仔细对比
2.1归来周末仔细debug, 主程序不运行还不报错;
2.2全部设置
2.3断电debug, 发现是sort有问题, 子程序sort, subtotal 报错
Run-Time error ‘438’, Object doesn’t support this property or mthod.

(3)问题解决
仔细对比其他可以用的sort/subtotal,
发现这段程序没有专门选中 filename 和sheetname, sort前重新设置filename 和sheetname之后, 还是不行. 看起问题不在合理.
网上查询, 度娘, 重新录制宏, 发现新录制的宏 用的是add, 不是add2. 敏锐的感到, 这可能是区别.试一下,果然如此.
但是原因不清楚, 可能这一版excel VBA就是这样. 先知道怎么办,分享.
遇到同样问题的人可以看, 知道原因的人请告知原因 .
去年excelhome上, 曾有大神(蓝大神)看不上 宏及录制宏, 看不上sort 和subtotal, 觉得用字典更稳定. 也许吧.

(4)代码 Workbooks(wipfilenameit).Activate
Sheets(pwipsheetnameit).Select ‘’ Range(Cells(2, 1), Cells(1000, 48)).Select 'must sort from line2.
Range(Cells(1, 1), Cells(1000, 48)).Select ''Cells.Select ''210707,0625-0707notwork,specify as A1,AZ1000.
ActiveWorkbook.Worksheets(pwipsheetnameit).sort.SortFields.clear
ActiveWorkbook.Worksheets(pwipsheetnameit).sort.SortFields.Add Key:=Range( _
“D2:D2800”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(pwipsheetnameit).sort
.SetRange Range(“A1:AV2800”)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With`