Controlar encabezado en excel

[lokoman]

Intenta asi:

Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet

Set xlApp = New excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add

DoEvents

'CENTRADO DE LA PAGINA
xlApp.ActiveSheet.PageSetup.CenterHorizontally = True

'ENCABEZADOS
xlApp.ActiveSheet.LeftHeader = ""
xlApp.ActiveSheet.CenterHeader = "ESTA ES UNA PRUEBA DE ENCABEZADO CENTRADO"
xlApp.ActiveSheet.RightHeader = ""

'PIE DE PAGINAS
xlApp.ActiveSheet.LeftFooter = ""
xlApp.ActiveSheet.CenterFooter = ""
xlApp.ActiveSheet.RightFooter = ""

'MARGENES
xlApp.ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.22)
xlApp.ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(0.18)
xlApp.ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.34)
xlApp.ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.34)
xlApp.ActiveWindow.DisplayGridlines = False
...
...
...

Nos cuentas!