J,

If there is only one cell with the word "Addresses" in it:

Sub MoveAddresses()
Cells.Find("Addresses").EntireColumn.Cut Worksheets("Sheet 2").Range("IV1").End(xlToLeft)(1,2)
End Sub

This will put the column into the column with the first free cell in row 1 of Sheet 2.

HTH,
Bernie
MS Excel MVP


"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