todas las hojas en A1

Hola Gabriel.

Creo que te basta con un condicional:

If h.Visible < 0 Then Application.Goto Reference:=h.Range("A1"), Scroll:=True

Saludos: Antonio.
******************************
"Gabriel Raigosa" escribió en el mensaje news:

Hola,

Un detalle adicional, como evito que la macro de "Eerror" en el caso de que exista alguna hoja oculta.

Gabriel


ORFAO escribió:

On 1 nov, 03:44, Gabriel Raigosa wrote:

Saludos,

Intento hacer una macro que me seleccione todas las hojas de un libro y
deje el puntero de celdas en A1 en cada hoja.

Alguien me puede echar una manito.

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