Dim name As String
            Dim id As String


            name = Sheets(proofsheet).Range(destItemColumn & m).Text
            id = Sheets(proofsheet).Range(destIdColumn & m).Text

proofLRow = Sheets(proofsheet).Cells(Rows.Count, 1).End(xlUp).Row
    For m = 2 To proofLRow
        If Not (InStr(Sheets(proofsheet).Range(destIdColumn1 & m), "TBD") = 0) Then
            Dim name As String
            Dim id As String


            name = Sheets(proofsheet).Range(destItemColumn & m).Text
            id = Sheets(proofsheet).Range(destIdColumn & m).Text

            Dim idFound, nameFound As Boolean
            idFound = False
            nameFound = False
            For k = 2 To prevDataLRow
                searchId = Sheets(sheet).Range(sourceIdColumn & k)
                searchName = Sheets(sheet).Range(sourceItemColumn & k)
                If (searchId = id) Then
                    idFound = True
                End If
                If (searchName = name) Then
                    nameFound = True
                End If
                If (nameFound Or idFound) Then
                    Exit For
                End If

            Next

            If idFound Then
                Sheets(proofsheet).Range(destFlagColumn & m).Value = ""
            ElseIf nameFound Then
                Sheets(proofsheet).Range(destFlagColumn & m).Value = "Replace"
            Else
                Sheets(proofsheet).Range(destFlagColumn & m).Value = "Retired"
            End If

        End If

    Next