Hi Jan Karel,

This is a snippet of the code that checks for an "x" in column one, the
colun that has "Processed" as column header.

Dim oExcel As Excel.Application
Dim oArchiveExcelWorkBook As Excel.Workbook
Dim oCommonExcelWorkbook As Excel.Workbook
Dim oCurrentSheet As Excel.Worksheet
Dim oCurrentArchiveSheet As Excel.Worksheet
Dim oTemplSheet As Excel.Worksheet
Dim oFSO As Scripting.FileSystemObject
Dim tsExtractFile As Scripting.TextStream
Dim sLogFile As String
Dim sLogMsg As String
Dim vTargetRow As Variant
Dim lnTargetRow As Long
Dim lnRowIndex As Long
Dim sTargetRow As String
Dim lnColumnCount As Long
Dim lnMaxRows As Long
Dim lnMaxSheets As Long
Dim lnArchiveMaxRows As Long
Dim lnSourceRow As Long
Dim lnLastSourceRow As Long
Dim lnColumnIndex As Long
Dim sRecord As String

For lnRowIndex = 1 To lnLastSourceRow
  If (oCurrentSheet.Cells(lnRowIndex, 1) = "Processed") Then
  Else
    If ((oCurrentSheet.Cells(lnRowIndex, 1) = "x") _
         Or (oCurrentSheet.Cells(lnRowIndex, 1) = "X")) Then
       lnSourceRow = lnRowIndex
       lnTargetRow = lnTargetRow + 1
       sTargetRow = Trim(Str(lnTargetRow))
       ' --- Copy and paste a row from the current Excel book and paste
it --------
       ' --- into the archive
    --------
       oCurrentSheet.Activate  ''' No need to activate if explicit
qualifier is used?
       oCurrentSheet.Range(Cells(lnSourceRow, 1), Cells(lnSourceRow,
lnColumnCount + 1)).Copy
       oCurrentArchiveSheet.Activate
       ' Start with column B, to allow for the new date column in the
archive sheet.
       oCurrentArchiveSheet.Range("B" & sTargetRow).Select
       oCurrentArchiveSheet.Range("B" & sTargetRow).Activate
       oCurrentArchiveSheet.Paste
       ' Insert today's date in the first cell of target row.
       oCurrentArchiveSheet.Cells(CLng(sTargetRow), 1).Value = CStr(Date)
       sLogMsg = CStr(Now) & " | ProcessExtractFiles function | " _
           & " Copied row " & Str(lnRowIndex) & " to archive sheet"
       tsLogFile.WriteLine (sLogMsg)
       oArchiveExcelWorkBook.Save
       oCurrentSheet.Cells(lnRowIndex, 1) = "r"
    End If
  End If
Next lnRowIndex

Ragnar