Set the copy to column to a variable
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
|