VBA: How to read table´s order status (Ascending/Descending)

[latecnik]

Good Morning,

Do you know how can I read in VBA the order status of an Excel 2007/2010 table?

I´ve tried this:


Dim ORDER As XlSortOrder

ORDER= ActiveWorkbook.Worksheets("MySheet").ListObjects("MyTable").Sort.SortField.Key


But it doesn't seem to work...

How would you achieve that reading?

Thanks a lot!

JL

 

[GlennUK]

Does this work:

MsgBox  ActiveWorkbook.Worksheets("MySheet").ListObjects("MyTable").Sort.SortFields(1).Order

?

 

[latecnik]

Yes it does!, Thank you very much!

 

[GlennUK]

That's great!