I have a workbook open with 3 columns of data & then open a second.

Set newApp = New Excel.Application
newApp.Workbooks.Open xlsFile

I then get some header info from the 2nd workbbok
Set row = human.Worksheets(1).Rows(1)
For i = 2 To maxHdr + 1
hdr(i - 1) = UCase(row.Cells(i).Text)
Next i

Next I try to copy the 1st column from the 2nd workbook to the 1st
column of the 1st workbook - overlaying the existing data in the 1st
column
Dim inCol, outCol As Range
Set inCol = human.Worksheet(1).Columns(1)
Set outCol = Application.ActiveWorkbook.Worksheets(1).Columns(1 )
inCol.Copy Destination:=Application.ActiveWorkbook.Worksheets (1).Columns(1)

I've tried several permeations of the copy statement but it never gets
displayed.
Any help appreciated. thanks...charlie