Look in the vba help index for FIND

Sub findandcopycol()
Set mc = Rows(1).find("Addresses")
If Not mc Is Nothing Then Columns(mc.Column) _
..Copy Sheets("sheet4").Columns(1)
End Sub
--
Don Guillett
SalesAid Software

"J Bates" wrote in message
...
How can I setup a macro or use a function to find a column who's first
cell is called "Addresses" then move the whole column to sheet 2.
Is it possible?
Puzzled