VBA to sort Table that works in Excel 2010

[kcmuppet]

Hello

I've got some code below attached to a button that works in Excel 365 to sort a Table, which throws up Error 438 when running in Excel 2010

Is there something I can modify so that it run on Excel 2010?

Sub SortEventsByDate()
    Sheets("Events").Select
    ActiveSheet.Unprotect Password:="password"
    ActiveWorkbook.Worksheets("Events").ListObjects("tbl_Events").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Events").ListObjects("tbl_Events").Sort.SortFields. _
        Add2 Key:=Range("tbl_Events[[#All],[Event Date]]"), SortOn:=xlSortOnValues _
        , Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Events").ListObjects("tbl_Events").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Events").Select
    ActiveSheet.Protect Password:="password", AllowFiltering:=True, AllowSorting:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowDeletingColumns:=False
End Sub

(As you might be able to tell, I can't write VBA from scratch,, but am trying to to learn how to edit recorded macros! Any help greatly appreciated)

 

[Fluff]

Change Add2 to Add

 

[kcmuppet]

Change Add2 to Add

Amazing - that worked! Thank you, Do you have time to explain what that does (and why it doesn't work in Excel 2010)?

 

[Fluff]

The Add2 only came into being with Xl 2016 & it's to deal with datatypes.