Excel 365 coding returns as errors on Excel Office

[andymalan]

Hello dear friends
The following code I put together using Excel 365 and it runs fine on my computer (windows 10).
When I try on a different windows 10 machine having excel Office, it gives the following error message

Application.Goto Reference:="Info"
ActiveWorkbook.Worksheets("Cabinets").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Cabinets").Sort.SortFields.Add2 Key:=Range( _
"G2:G1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Cabinets").Sort

your help is ALWAYS appreciated

 

[RoryA]

Change Add2 to Add