¿Dónde esta el error en el código de esta macro que recorre las hojas de un libro?

Que tal un saludo, tengo un problema, esta macro no recorre las hojas de un libro solamente aplica las instrucción en la hoja que me encentre posicionado, espero me puedan decir en que me estoy equivocado.
Sub Macro6()
'
' Macro6 Macro
'
Dim hoja As Worksheet
Application.ScreenUpdating = False
For Each hoja In Sheets
    Application.Goto Reference:="R1C1:R130C13"
    Selection.ClearFormats
    Range("A1").Select
Next hoja
Application.ScreenUpdating = True
End Sub
1

1 Respuesta

2.300 pts. Administrador de negocios con corazón de ingeniero
'Proba este codigo y listo
Sub Macro6()
'
' Macro6 Macro
'
Dim libro As Workbook
Dim hoja As Worksheet
Application.ScreenUpdating = False
Set libro = Application.ActiveWorkbook
For Each hoja In libro.Worksheets
   Application.Goto Reference:="R1C1:R130C13"
    Selection.ClearFormats
    Range("A1").Select
Next hoja
Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas