create list of spreadsheet's data validation rules

Hi All,

I have a large spreadsheet with individualized data validation rules (including validation criteria, input message and error alert) for each of 101 columns. I would like to be able to create a list of the criteria, input messages, error alerts so that I can more easily quality check the entire set of validation rules. Any ideas on a macro that would achieve that?

Thanks for the link; but neither of those pieces of code actually did anything. It's weird, no errors, nothing.

Ok, I was being silly and put the code into a worksheet, instead of a module. It works pretty well. I get the cell address, the type of validation (custom, list, etc) and my validation formula. That's great! I would, however, also like to have the associated input message and error alert text.