macro to release list filter

Hi all! I have a sheet that has multiple lists. I want to create a macro that, when pressed, will release all of the filters from all lists (same as clicking the filter arrow, then clicking all). I used the macro recorder, but the code it created doesnt quite work like I want. Does anyone know of any code that would do what I want? Thanks in advance.

Originally Posted by VBA Noob

See if link helps

http://www.contextures.com/xlautofilter03.html#All

VBA Noob

Almost, but not quite. With that code, there are two problems:

1. If the selected cell is not in the 'list' when the macro is run, then it doesnt release the filter.

2. It only releases the filter that is in the current list. I need something that releases the filters in ALL lists.

Any ideas?