excel - 현재 폴더의 파일을 반복하고 편집하는 VBA 스크립트

vba 스크립트를 작성하고 있습니다 에이. 하나의 현재 엑셀 파일의 내용을 복사 (포맷) 비. 현재 폴더의 다른 모든 Excel 파일을 반복 기음. 복사 한 새 워크 시트를 Excel 파일에 추가

어떤 이유로 내 코드가 작동하지 않습니다. 누구든지 도와주세요 VBA 스크립팅이 처음입니다

   Sub Macro7()
    Dim wbf As Workbook
    Dim myPath As String
    Dim myFile As String
    Dim currentFile As String
    Dim mtExtension As String
    myPath = Application.ActiveWorkbook.Path
    currentFile = ActiveWorkbook.Name

    MsgBox (myPath)
    Dim objFSO As Object
    Dim objFolder As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(myPath)
    Count = 0

        For Each objFile In objFolder.Files
            If currentFile <> objFile.Name Then
                Set wbt = Workbooks.Open(Filename:=myPath & "\" & objFile.Name)
                MsgBox (objFile.Name)
                .Sheets("Action Descriptions").Select After:=Workbooks(objFile.Name).Sheets(1)
                ActiveWorkbook.Save
                ActiveWindow.Close
            End If

'
        Next
   ' Loop
End Sub