Hi,

Below is a code I am using to merge workbooks from one folder into a separate workbook.

The code looks correct to me but nothing happens when I run the macro.

There is no error that needs to be debugged.

Any ideas would be appreciated.

Sub MergeAllWorkbooks()
    Dim SummarySheet As Worksheet
    Dim FolderPath As String
    Dim NRow As Long
    Dim FileName As String
    Dim WorkBk As Workbook
    Dim SourceRange As Range
    Dim DestRange As Range
    
   
    Set SummarySheet = ActiveWorkbook.ActiveSheet
    
    FolderPath = Dir(Range("A2").Value)
    
   
    NRow = 1
    
   
    FileName = Dir(FolderPath & "*.xl*")
   
    Do While FileName <> ""
        
        Set WorkBk = Workbooks.Open(FolderPath & FileName)
        
        
        SummarySheet.Range("A" & NRow).Value = FileName
        
       
        Set SourceRange = WorkBk.Worksheets(1).Range("E7:G8")
        
        
        Set DestRange = SummarySheet.Range("B" & NRow)
        Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
           SourceRange.Columns.Count)
           
        
        DestRange.Value = SourceRange.Value
        
        
        NRow = NRow + DestRange.Rows.Count
        
        
        WorkBk.Close savechanges:=False
        
        
        FileName = Dir()
    Loop
    
    
    SummarySheet.Columns.AutoFit
End Sub