I am wanting to use the following code to combine worksheets from
multiple files. However I would like to be able to select folder which
contains files in a more automated way that having to change the code
every time, and also copy all worksheets with links and formulas
removed. Any help on this is greatly appreciated as I have limited
code knowledge.

Option Explicit
> Sub Copy_them()
>
> Dim TargetWkbk As Workbook
> Dim mrgWkbk As Workbook
>
> Dim i As Long
> Dim Wks As Worksheet
> Dim fName As String
>
> Application.ScreenUpdating = False
> Set TargetWkbk = Workbooks.Add(1)
> ActiveSheet.Name = "dummy"
>
> With Application.FileSearch
> .NewSearch
> .LookIn = "c:\Temp" 'folder to use
> .SearchSubFolders = False
> .Filename = "*.xls"
> .FileType = msoFileTypeExcelWorkbooks
> If .Execute() > 0 Then
> ' MsgBox "There were " & .FoundFiles.Count & " file(s) found."
> For i = 1 To .FoundFiles.Count
> Set mrgWkbk = Workbooks.Open(.FoundFiles(i))
> For Each Wks In ActiveWorkbook.Worksheets
> With TargetWkbk
> Wks.Copy after:=.Worksheets(.Worksheets.Count)
> End With
> Next Wks
> mrgWkbk.Close False
> Next i
>
> Application.DisplayAlerts = False
> TargetWkbk.Worksheets("dummy").Delete
> Application.DisplayAlerts = True
>
> fName = Application.GetSaveAsFilename _
> (fileFilter:="MS Excel Workbook (*.Xls), *.Xls")
>
> TargetWkbk.SaveAs Filename:=fName, FileFormat:=xlNormal, _
> Password:="", WriteResPassword:="", _
> ReadOnlyRecommended:=False, CreateBackup:=False
> Else
> MsgBox "There were no files found."
> TargetWkbk.Close savechanges:=False
> End If
> End With
>
> Application.ScreenUpdating = True
> Application.EnableEvents = False
>
> End Sub