VBA Code: Deselect Value on Table Depending on Cell Contents

[_Chris]

Firstly Hi.

My first post so hopefully its not me being a numpty.

I have some data in a table that depending on the value contained in a certain cell i want it to deselect the value in the cell so the rest off the macro can just delete the table contents that do not meet the requirements.

Options for the filter are:

• TA
• TM
• LN
• Legacy
• Group

The cell that will contain the criteria for the filter selection is name ranged "T1_BU"

Now im not a guru and trying to learn as a go but sadly just only really at the moment working with recording macros and editing as i go with what i am trying to achieve but i am really stuck here.

If in the cell i have "TA" the recorded macro shows the below.

ActiveSheet.ListObjects("HubbleData").Range.AutoFilter Field:=27, Criteria1 _
        :=Array("Group.", "Legacy.", "LN.", "TM.", "="), Operator:=xlFilterValues

I think somewhere i need to delete the array and have a <>Range(T1_BU) or something like that but it doesn't appear to be working.

Hopefully that will explain what i am trying to get at and any help really appreciated!

Thanks in advance.

 

[_Chris]

quick bump as wouldnt mind finishing the file today