Cómo introducir variables en encabezado y pie de página

"Joel" escribió en el mensaje news:eD$

Hola a todos!

Tengo un archivo en el que quiero que en el encabezado y el pie de página
me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
Gracias por adelantado. Un saludo,

Joel.

Si el libro tan solo tiene una hoja o si quieres que el valor de la celda te aparezca en el encabezado de cualquier hoja que se imprima, puedes usar algo como:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = [Hoja1!A1]
End Sub

Tal como va el código, la celda será A1 de Hoja1, y se mostrará en la parte central del encabezado.

Para que funcione el código tienes que pegarlo en el módulo del libro (ThisWorkbook)
Un saludo


Fernando Arroyo
MS MVP - Excel