¿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
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 respuesta
Respuesta de Jairo Salguero
1
'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
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
