Problem sorting tables

[pichon]

I'm banging my head against the wall trying to sort each table in my workbook alphabetically by first column. My code is as follows:

Please Login or Register  to view this content.

It runs fine through some worksheets but stops on one sheet in particular and gives me a 1004 Method Range of object global failed error on the .SortFields.Add line.

Any ideas how to fix this?

[PCI]

It is difficult to understand the error without Excel data.
Please attach an Excel sample