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!