Charlie, try

Sub CopyColumns()
Dim RngSrc As Range
Dim RngDest As Range
Set RngSrc = Workbooks("Book2").Sheets
("Sheet1").Columns(1)
Set RngDest = Workbooks("Book3").Sheets
("Sheet1").Columns(1)
RngSrc.Copy RngDest
End Sub

Regards,

John Mansfield
The Planning Deskbook
http://www.pdbook.com


-----Original Message-----
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
.