Arrastando esse segmento de volta à vida. Eu tenho tentado conseguir algo hoje mesmo e através de força bruta e tentativa e erro, eu encontrei uma resposta que não envolve uma declaração de seleção confusa ou ter uma folha ativada.
TableName.Range.Autofilter Field:=TableName.ListColumns("Column Name").Index, _
Criteria1:="SearchString"