¿Aplicar una Macro a varios libros de Excel con nombre distinto?

Me puedes ayudar a editar el siguiente código para que se pueda ejecutar en varios libros de excel(nombres diferentes):

Sub Macro1()

    Range("G2").FormulaR1C1 = "=MID(RC[-6],35,11)"

    Range("J2").FormulaR1C1 = "=MID(RC[-3],1,3)"

    Range("K2").FormulaR1C1 = "=MID(RC[-4],5,2)"

    Range("L2").FormulaR1C1 = "=MID(RC[-5],8,4)"

    Range("M2").FormulaR1C1 = "=DATE(RC[-1],RC[-2],RC[-3])"

    Range("M2").Select

    Selection.Copy

    Range("I2").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Selection.NumberFormat = "m/d/yyyy"

  Range("A3").Select

    Selection.EntireColumn.Insert

    Range("A4" ). FormulaR1C1 = "Fecha"

    Range("B4" ). FormulaR1C1 = “No_Emple”

    Range("C4" ). FormulaR1C1 = “Dias”

    Range("A:A").Select

    Selection.NumberFormat = "m/d/yyyy" 

'Act.Por Dante Amor

    Application.ScreenUpdating = False

    u = Range("B" & Rows.Count).End(xlUp).Row

    Range("A6:A" & u).Value = Range("J2")

Application.ScreenUpdating = True

End Sub