Sort macro doesn't run itself

[Apple08]

Hi All

I have recorded a sort macro but it doesn't run itself. They are stored in the data sort on menu bar, when I click ok then it runs. However I expect once I run the macro it will automatically run. Please have I done anything wrong?

Cells.Select
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add2 Key:=Range("D2:D1000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add(Range("B2:B1000"), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(8).Item(1)
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add(Range("B2:B1000"), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(8).Item(2)
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add(Range("B2:B1000"), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(8).Item(3)
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add(Range("B2:B1000"), _
        xlSortOnFontColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(0, 0, _
        0)
    With ActiveWorkbook.Worksheets("Data").Sort
        .SetRange Range("A1:J1000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
    End With

 

[RoryA]

Why do you think a macro would run itself?

 

[Apple08]

Sorry, please ignore my question as I have put the macro in the wrong order, I have now fixed it. Thanks.