Macro guardar varias hojas como pdfs individuales y con nombre celda

Buenas compañeros,

Agradezco enormemente la utilidad de este foro, ya que lo he aprovechado en varias ocasiones para avanzar en mis conocimientos de excel con VB.

La duda que tengo es la siguiente, quisiera poder generar con una macro pdfs de todas las hojas del libro, lo que viene siendo un pdf por hoja y que se guarde con el nombre de cada hoja y según el valor de una celda de cada hoja, el rango de la celda es el mismo para todas, A:1.

Tengo la siguiente macro, que me funciona bien para guardar todas las hojas como pdfs individuales, me los guarda también bien con el nombre de cada hoja, el fallo viene en que cuando tiene que coger el valor de la celda de cada hoja sólo coge el de la primera, y lo que busco es que asigne el valor de la celda de cada hoja:

Sub pdfs()
For Each h In Sheets
h.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & h.Name & "ALBARÁN Nº " & Range("a1").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End Sub

El fallo debe estar en la parte de Range("a1").Value, me asigna en todos los pdfs el valor de la ceda A1 de la primera hoja solamente.

Alguien me ayuda? Le estaré eternamente agradecido.