Ejecutar macro en 200 hojas de un libro de excel
Dios les bendiga,
Tengo la siguiente macro lo que hace es eliminar la información que no necesito, lo que quiero es que esta se ejecute en todas las 200hojas del libro que tengo, de antemano gracias:
Sub macro1()
'
' macro1 Macro
'
'
Range("A1:M66").Select
Range("J1").Activate
Application.Run "Libro1.xlsx!unmerge_Cells"
ActiveWindow.SmallScroll Down:=-84
Rows("1:7").Select
Selection.Delete Shift:=xlUp
Range("D1").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Rows("2:10").Select
Selection.Delete Shift:=xlUp
Columns("C:H").Select
Selection.Delete Shift:=xlToLeft
Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "2"
Range("B4").Select
ActiveCell.FormulaR1C1 = "3"
Range("B2:B4").Select
Selection.AutoFill Destination:=Range("B2:B46")
Range("B2:B46").Select
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub
Nota: unmerge_Cells es otra macro que lo que hace es convertir las celdas que estan combinadas en celdas normales.
Tu macro quedaría así:
Sub macro1()
for x=1 to sheets.count
sheets(x).select
Range("A1s:M66").Select
Range("J1").Activate
Application.Run "Libro1.xlsx!unmerge_Cells"
ActiveWindow.SmallScroll Down:=-84
Rows("1:7").Select
Selection.Delete Shift:=xlUp
Range("D1").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Rows("2:10").Select
Selection.Delete Shift:=xlUp
Columns("C:H").Select
Selection.Delete Shift:=xlToLeft
Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "2"
Range("B4").Select
ActiveCell.FormulaR1C1 = "3"
Range("B2:B4").Select
Selection.AutoFill Destination:=Range("B2:B46")
Range("B2:B46").Select
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
next
End Subrecuerda finalizar
