MACRO: IF THEN Statement (Multiple Criteria Match then Copy)

[pawcoyote]

Hi, For some reason the this code isn't showing the Sheet where the info is missing as I thought it would.. It is just showing the following:

error_msg.jpg

MsgBox colHeader & " not found in row " & colRow & " on " & sh.Name
colNumber = CVErr(xlErrValue)

I changed the copy loop to use the values

                For iCopy = LBound(aCopy, 1) + 1 To UBound(aCopy, 1)
                    rMAFFT.Cells(iMAFFT, aCopy(iCopy, 1)).Copy
                    rDeploy.Cells(iDeploy, aCopy(iCopy, 2)).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                    rDeploy.Cells(iDeploy, aCopy(iCopy, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Next iCopy