Macro working in windows 10 but not windows 7

[LLPlates]

Hello,
I have recorded a macro to sort each column alphabetically in a workbook.
It works perfectly on our 2 computers that are windows 10 but not on the
windows 7 computer. Below is the macro.

Is this a common problem?

Sub SuburbSort()
'
' SuburbSort Macro
'

'
Columns("A:A").Select
ActiveWorkbook.Worksheets("TO DO LIST").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TO DO LIST").Sort.SortFields.Add2 Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("TO DO LIST").Sort
.SetRange Range("A2:I147")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End Sub

Regards,
LLPlates

 

[MARK858]

What version of Excel do you have on the windows 7 computer?

 

[LLPlates]

Thank you for your reply.
On windows 7 we have 2010 and on windows 10 we have 2016

 

[Jack in the UK]

Debug your code and highlight where it fails

16 will have different syntax to 10, same goes for x64 (horrid VBA that has) again differences

If your going to program VBA in Office x86 all the way !

 

[Fluff]

Remove the 2 after add on this line

ActiveWorkbook.Worksheets("TO DO LIST").Sort.SortFields.Add[COLOR=#ff0000]2 [/COLOR]Key: