Todas las hojas en A1 y la pantalla visualizando desde A1

Hola Orfao,

La macro propuesta cumple su objetivo, note por casualidad que da error
cuando existen hojas ocultas.

Como evito ese error.

Gabriel



Realmente no creo que sea esto lo que buscas pero te coloca como selda
actina la a1 en todas las hojas del libro
y vuelve a la hoja donde se ejecuto la instruccion
en este caso coloque un commandbuttom ern a1 y le asigno lo siguiente

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
x = ActiveSheet.Name
For Each h In ThisWorkbook.Sheets

Application.Goto Reference:=h.Range("a1"), _
Scroll:=True
Next
Sheets(x).Activate
Application.ScreenUpdating = True
End Sub