Error opening file after sorting, saving, and closing

[kweaver]

I have an Excel workbook with a tab named "Master". I have a sorting button that calls this routine:

Sub SortByEmpNo()
 Sheets("Master").Activate
 With ActiveSheet.Sort
 .SortFields.Add Key:=Range("A10"), Order:=xlAscending
 .SetRange Range("A10:G1013")
 .Header = xlYes
 .Apply
 End With
End Sub

That sorts based on column A with the header in A10. It sorts properly.

When I save the file, close it, and reopen it, I get this error:

clicking on Yes:

Clicking to view the error:

While I'd like to view the error, I can't. However, if I just ignore this (since it won't show it to me), resave the file, close it, and reopen it...there's no error!!

(a) how do I get to view the error and (b) bypass this somehow so that the file is "fixed" [for whatever reason] and opens right away the next time I open it???

Thanks in advance.

 

[Fluff]

I suspect the error is because you are not clearing the sort fields, so you are just creating more & more of them.
Try

Sub SortByEmpNo()
 Sheets("Master").Activate
 With ActiveSheet.Sort
 [COLOR=#ff0000].SortFields.Clear[/COLOR]
 .SortFields.Add Key:=Range("A10"), Order:=xlAscending
 .SetRange Range("A10:G1013")
 .Header = xlYes
 .Apply
 End With
End Sub

 

[kweaver]

You nailed it, of course. So nice to hear from experts here -- and so quickly as well! Thanks!!!

 

[Fluff]

You're welcome & thanks for the feedback