Hi murtaza,

Try this,

Dim CriteriaString as String
CriteriaString = Activesheet.Name

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

Let us know if this works...