Use the BeforeDoubleClick Event on the worksheet

Within that event, use the Sort method with the "Target" variable in the
Key1 argument.

Be sure to have

Application.EnableEvents=False

At the beginning and the same line at the end, but only changed to "True".

Then all you would have to do is double click on the heading.

--
Thanks,

Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
"Rob Benz" wrote in message
...
This can be done in a word table via a macro; can it be done in Excel?

Click on any column heading and entire spreadsheet is sorted on that
column.