title: Excel merging docs macro
body: <p>So, I have no coding experience and I have never learnt to code but I was able to stumble along this code here, I simply want to add an if statement to make it so I can filter out any documents not containing certain text in field A1. How could I go about doing this?</p>
  
  <pre><code>Sub MergeExcelFiles()
      Dim fnameList, fnameCurFile As Variant
      Dim countFiles, countSheets As Integer
      Dim wksCurSheet As Worksheet
      Dim wbkCurBook, wbkSrcBook As Workbook
  
      fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
  
      If (vbBoolean &lt;&gt; VarType(fnameList)) Then
          If (UBound(fnameList) &gt; 0) Then
              countFiles = 0
              countSheets = 0
  
              Application.ScreenUpdating = False
              Application.Calculation = xlCalculationManual
  
              Set wbkCurBook = ActiveWorkbook
  
              For Each fnameCurFile In fnameList
                  countFiles = countFiles + 1
                  Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
  
                  For Each wksCurSheet In wbkSrcBook.Sheets
                      countSheets = countSheets + 1
                      wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                  Next
                  wbkSrcBook.Close SaveChanges:=False
              Next
  
              Application.ScreenUpdating = True
              Application.Calculation = xlCalculationAutomatic
  
              MsgBox "Procesed " &amp; countFiles &amp; " files" &amp; vbCrLf &amp; "Merged " &amp; countSheets &amp; " worksheets", Title:="Merge Excel files"
          End If
      Else
          MsgBox "No files selected", Title:="Merge Excel files"
      End If
  End Sub
  </code></pre>