Macro to filter a table using the name of the active worksheet as a criteria

Hi Guys,
I am stuck while writing a macro. I need the macro to filter a table using the name of active worksheet as criteria. The code that I am writing is as below, but it doesn't seem work:

ActiveSheet.Range("$A$1:$AE$421").AutoFilter Field:=19, Criteria1:="Activesheet.Name"

If I hard quote the name of the sheet then, the macro, unchecks all the criteria in the filter and does not show and row in the table.

I will highly appreciate if you someone can help me with this.

Appreciate your help in advance.
Thanks... Murtaza.