one macro to sort text in ascending and descending order

Hi,

Is it possible to sort a range of data in ascending and descending order using just one macro? I can have two macros with the alternate choices on but I would really like just the one option.

I can do it if there is numerical data using this code:

Please Login or Register  to view this content.

Any ideas?

Thank you in advance.

JP

Hi JP,

Try this:

Please Login or Register  to view this content.

try this recorded macro
copies col a to b
then sorts
a ascending
b descending

Please Login or Register  to view this content.

Thank you guys for such a comprehensive list of replies. I really appreciate it.

ShaunM your suggestion was closest to what I was looking for. However it worked the first time I clicked the macro but click it again i.e. to swap ascending for descending or vice versa it didn't work. Any ideas?

mikerickson thankyou for your reply, pardon my pathetic knowledge but how do I assign an If statement VBA code to a macro button?

Thanks again,

JP

Thanks ShaunM,

Your file works perfectly for numbers but I need the same functionality for text. Any ideas?

Thanks

JP

Hi JP

The code that I previously provided, handles numbers or words(strings).

I have attached the same code with a word list to sort:

Regards
Shaun