try

Sub copycol()
Sheets("sheet1").Columns("a").Copy _
Sheets("sheet2").Columns("a")
End Sub
--
Don Guillett
SalesAid Software

"yefei" wrote in message
oups.com...
should i use VBA to do this?
i need to copy the content of a column in one worksheet to another, if
the content in the cell is not empty. and when i add a macro, the sub
procedure ask me to pass in object, is it way like this:

sub copyAnswer(workbook, worksheet)
end sub

because the default one is
sub copyAnswer()
end sub