Sub CombineFilesIntoWorkbook()
    Dim FolderPath As String
    Dim FileName As String
    Dim WbSource As Workbook
    Dim WbDest As Workbook
    Dim Ws As Worksheet
    Dim FolderDialog As FileDialog
    
    Set FolderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    If FolderDialog.Show = -1 Then
        FolderPath = FolderDialog.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    Set WbDest = Workbooks.Add
    
    FileName = Dir(FolderPath & "\*.xlsx")
    Do While FileName <> ""
        Set WbSource = Workbooks.Open(FolderPath & "\" & FileName)
        For Each Ws In WbSource.Sheets
            Ws.Copy After:=WbDest.Sheets(WbDest.Sheets.Count)
            WbDest.Sheets(WbDest.Sheets.Count).Name = Left(FileName, Len(FileName) - 5) & "_" & Ws.Name
        Next Ws
        WbSource.Close False
        FileName = Dir
    Loop
    
    WbDest.SaveAs FolderPath & "\Combined_Workbook.xlsx"
    MsgBox "Files have been combined successfully!"
End Sub