Utilizar sentencia en varias hojas VBA

Utiliza esta rutina:

Sub solucion()
'por luismondelo
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
ActiveWindow.DisplayHeadings = False
Next
End Sub

GRacias Luis,

También lo haría aunque tenga los nombres de las hojas cambiadas??

Si, no importa los nombres.

Te recuerdo que la consulta sigue abierta. Si todo quedó claro, recuerda finalizarla.

Lo siento no lo he podido comprobar antes... por eso no he finalizado.

Me da un problema, el código q pongo es el siguiente:

Private Sub Workbook_Open()
Call quitarBarras
End Sub

Sub quitarBarras()
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Next
End Sub

El problema me lo da en hoja.Select

No hace falta que llames desde el workbook_open a otra macro, escríbelo dentro del evento. Usalo así:

Private Sub Workbook_Open()
dim hoja
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Next
End Sub

ME sigue dando el mismo error,

Error en el método Select de la clase Worksheet

Private Sub Workbook_Open()
Dim hoja
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Next
Sheets("Base de Datos").visible = xlVeryHidden
Sheets("Registro").visible = xlVeryHidden
Sheets("Pedido").Shapes("Cboton").visible = False
Sheets("Pedido").Protect ("@~uax")
Sheets("Pedido").ScrollArea = "$A$1:$J$45"
Sheets("Rellenar Pedido").Protect ("@~uax")
Sheets("Rellenar Pedido").ScrollArea = "$A$1:$J$45"
Sheets("Rellenar Pedido").Select
End Sub

Yo he probado la macro en mi equipo y funciona de maravilla

Revisa a ver si tienes puesto en los módulos un option explicit

pues a mi no me sale y no tengo nada con option explicit.

Lo único que puedo hacer es eviartelo por correo

Ya he descubierto por que te falla: Al iniciar el archivo tenemos hojas ocultas por eso no funciona. Solución:

Private Sub Workbook_Open()
Dim hoja
For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next
For Each hoja In ActiveWorkbook.Sheets
hoja.Select
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Next
'-----------------------------------------
'A partir de aquí vuelve a dejar las hojas
'que quieras como ocultas o muy ocultas
End Sub

Ahora si que lo hace...

Lo que pasa es que me hace una serie de secuencia, como los hace visible y luego oculta las hojas esa secuencia aparece. ¿Hay alguna forma de quitarla?