find
 

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

find
 

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

find
 

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

find
 

Thanks folks it works a treat.