Перебирайте несколько рабочих книг и упорядочивайте данные в соответствии с кодом

Question

У меня есть следующий код, который размещает данные из «Sheet1» в нескольких книгах, которые расположены (сохранены) в папке с именем «TestVerificari». Следующий код (прилагается) работает отлично, но мне приходится запускать его вручную для каждой книги. Есть ли способ вставить этот код в цикл и запустить его один раз для всех книг, сохраненных в этой папке? Большое спасибо!

Sub VerificariCE()
'
' Macro1 Macro
'

'
    Rows("1:5").Select

    Selection.Delete Shift:=xlUp

    Columns("A:D").Select

    Selection.Delete Shift:=xlToLeft

    Range("A1:B50000").UnMerge

    Columns(2).Delete

    Selection.UnMerge

    Columns("B:B").Select

    Columns("C:D").Select

    Range("C50000").Activate

    Selection.Delete Shift:=xlToLeft

  '''''''''''''''''''''''''''''''''''
    Range("D1").Select

    Selection.Copy

    Range("G1").Select

    ActiveSheet.Paste

    Range("G2").Select

    ActiveCell.FormulaR1C1 = _
        "=TRIM(MID(SUBSTITUTE(RC[-2], """""""", REPT("" "", 999)), 2999, 999))"

    Range("G2").Select

    Selection.AutoFill Destination:=Range("G2:G50000")

    Range("G2:G50000").Select

    Columns("B:B").EntireColumn.AutoFit

    Columns("A:A").EntireColumn.AutoFit

    Columns("G:G").EntireColumn.AutoFit

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$M$50000").AutoFilter Field:=1, 

Criteria1:=Array( _

        "AutorizareExport", "CautarePF", "CautarePJ", 

"DescarcaRaportClient", _

        "GenereazaRaportClient", "InapoiLaCautare", "InrolareClientNouPF", _

        "IstoricDocumente", "Meniu_DocumentReport", 

"ModificareDateClientPF", _

        "ModificareDateClientPJ", "ModificarePFInitiativaBancii", 

"PaginaCautare", "="), _

    Operator:=xlFilterValues

    Rows("2:2").Select

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

    Selection.Delete Shift:=xlUp


End Sub