Column sort

[HDavidson]

I am running a vba Macro to sort by two columns. First by column "a", then by column "n".The macro seems to do what i want but every time i open it i get the following error

This is the vba code i'm using.Hope someone can help

Sub Auto_Close()
    ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.Sort.SortFields.Add2 Key:=Range("N2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A:Q")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Fluff]

Add this as the 1st line

ActiveSheet.Sort.SortFields.Clear

 

[HDavidson]

ActiveSheet.Sort.SortFields.Clear

at what point do i insert this as the formula runs when the file is closed

 

[Fluff]

Just after the Sub Auto_Close() line

 

[HDavidson]

Thanx Fluff that seems to work. Although now i have put is into the actual work book, i get a message saying Be Careful! Parts of your document may include personal information that Can't be removed by the Document Inspector

 

[Fluff]

That has nothing to do with your code.

 

[HDavidson]

That has nothing to do with your code.

It has only started to appear since i inserted the vba code anyone have any idea what it means

 

[Fluff]

Have a look here "Be careful! Parts of your document may include personal information that cannot be removed by the document inspector"

 

[HDavidson]

Thnx for the heads up Fluff all sorted thank you for your Help

 

[Fluff]

You're welcome & thanks for the feedback.