Problema con Macro en Excel

Espero se encuentren bien. Por favor, alguien que me pueda orientar: Tengo una macro la cual lo que hace es exportar un formato de excel a archivos PDF. En dicho formato hay una formula para generar una lista de la cual hace referencia a una tabla en otra hoja para extraer los datos que ahí se encuentran. Aparentemente todo funciona bien, el problema es al momento de crear la macro para hacer la exportación de los archivos a PDF. Si en la tabla hay 15 registros, deben de crearse 15 archivos PDF; si en la tabla hay 3 registros, sólo deben crearse 3 archivos PDF. El problema surge cuando la macro evalúa la formula de la creación de la lista. Para crear la lista uso la siguiente formula:

=INDIRECTO("t_Personal[Folio]")

La cual, en la hoja de excel, funciona sin problema alguno; pero en la macro está la siguiente instrucción:

Set zLista = Evaluate(zRango.Validation.Formula1)

Donde Formula1 no la encuentra, la valida o no sé como describir el error. Lo curioso es que si en la hoja de excel cambio la formula de INDIRECTO y coloco la formula:

=PERSONAL!A1:A15

La instrucción de la macro se ejecuta sin problema alguno, pero el problema radica en como ya lo mencioné, el numero de registros varía por lo tanto, dejar un rango exacto en la lista no es funcional.

Por favor, alguien que me apoye, he buscado bastante pero aún no encuentro solución al problema. Adjunto el código completo de la macro para mayor detalle. Si alguien no entiende algún detalle o de que va mi problema, buscaré otra forma de explicarlo para que me puedan ayudar. Gracias de antemano.

Sub Exp_PDF3()
Sheets("FIRMAS").Select
Dim zRango As Range
Dim zCelda As Range
Dim zLista As Range
Dim zMes As Range

Set zRango = Worksheets("FIRMAS").Range("m1")
Set zLista = Evaluate(zRango.Validation.Formula1)
Set zMes = Worksheets("FIRMAS").Range("k1")
For Each zCelda In zLista
zRango = zCelda.Value
valorCelda = Worksheets("FIRMAS").Range("m1").Value
rutaArchivo = ActiveWorkbook.Path & "\" & zMes & "-" & valorCelda & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaArchivo, quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False
Next

End Sub