Macro to sort multiple columns in order, on any sheet/table

Below macro has been working great for me - but it's limited to only the table specified in the code. I've been trying to morph it to work in whatever table/sheet is active. I thought for sure my "ActiveTable" variable would work... What am i missing?

Before: (Works great, but only specified table)

Please Login or Register  to view this content.

After: (Doesn't work )

Please Login or Register  to view this content.

Is this even the best way to sort these 3 fields in this certain order? The help is much appreciated.

Hi Andrewjs,

You were close. Try the following code. I could not test the Sort routine, because I did not have a workbook with the correct data.

Please Login or Register  to view this content.

It is a best practice to declare all variables. If you misspell a variable in your code, VBA will silently assume it is a Variant variable and go on executing with no clue to you that you have a bug. Go to the VBA development window, click Tools, Options, and check "Require Variable Declaration." This will insert the following line at the top of all new modules:

Please Login or Register  to view this content.

This option requires all variables to be declared and will give a compiler error for undeclared variables.

Lewis