Como repetir uma macro para vários arquivos

[ArthurS]

Boa tarde!

 

Fiz um macro, e quero que ela se repita em todos os arquivos de uma pasta.

 

 

Sub Macro2()

      

    Workbooks.Open filename:= _

        "Z:\Projetos\451.xlsx"      ' ESTE É O LOCAL E UM ARQUIVO, QUERIA QUE ESTE PROCESSO SE REPETISSE EM TODOS OS ARQUIVOS DESTA PASTA.

    Range("B60").Select

    Selection.EntireRow.Insert

    Selection.EntireRow.Insert

    Range("C62").Select

    Selection.Copy

    Range("C60").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos ( vazio)"

    Range("C62").Select

    Selection.Copy

    Range("C61").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos (carregado)"

    Range("C63").Select

    Selection.Copy

    Range("C62").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = _

        "Funcionamento de travas das cabeceiras e centrais (vazio)"

    Range("C63").Select

    ActiveCell.FormulaR1C1 = _

        "Funcionamento de travas das cabeceiras e centrais (carregado)"

    Range("C49").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlToLeft)).Select

    Range("C49:E50").Select

    Selection.Copy

    Range("C51:E72").Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Application.CutCopyMode = False

    Range("F49:I50").Select

    Selection.Copy

    Range("F51:I72").Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Application.CutCopyMode = False

    Range("J59").Select

    Selection.AutoFill Destination:=Range("J59:J62"), Type:=xlFillDefault

    Range("J59:J62").Select

    Range("B57:B58").Select

    Selection.AutoFill Destination:=Range("B57:B63"), Type:=xlFillDefault

    Range("B57:B63").Select

    ActiveWorkbook.Save

    ActiveWindow.Close

 

End Sub

 Obrigado!

[ArthurS]

já me responderam em outro fórum!

 

segue link da resposta!

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=26250&p=130966&sid=5f1692c783ee473e6d93a3b020772dbe#p130966

 Agradeço a atenção de todos