Macro con Filtro de Criterio Variable

Quiero hacer una macro con filtro variables de la siguiente manera:

Sub FILTRO_GENERAL()

Dim A As String
Sheets("DATA TRR").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$V$1500").AutoFilter Field:=15, Criteria1:=A
Range("A1").Select

End Sub

Ese procedimiento "FILTRO_GENERAL", quiero llamarlo en otro procedimiento así:

Sub FILTRO_TYC()

Dim A As String
A = "TYC"
Call FILTRO_GENERAL
End Sub

El problema que tengo es que a pesar que en el segundo procedimiento le doy un valor a "A", que es "TYC" antes de llamar al primer procedimiento, "A" no toma ese valor y el filtro resulta en blanco.