try it into the IF statement:

If Not aScan Is Nothing Then
myCol = Application.Match(MySheet, Sheets("FBAout").Range("1:1"), 0)
Set dest = Sheets("FBAout").Cells(Rows.Count, myCol).End(xlUp)(2)
dest.Offset(0, 1) = Date
aScan.Cut dest
ActiveWindow.ScrollColumn = myCol

Else
MsgBox " No match found."

End If

ActiveWindow.ScrollColumn brings the destination column to the left
side of the table.
If you need more help, please send me the file with comments.




Hi Claus,
That does a nice job. Works pretty slick.

Thanks for the excellent help. Appreciate it.

Howard