Hi Howard,

Am Sat, 5 Mar 2016 04:40:37 -0800 (PST) schrieb L. Howard:

Is there a reasonable way to ..bring the destination column into the viewing screen area once it is selected in the drop down? That way the user can see the numerous scan returns and dates as they occur.

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.


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional