selecting columns in a macro

[khickey]

I want to write a Macro to slect and copy data from a column of data. The data files have variable number of columns, but all have one column with the text heading "36". Is there a way to select theis column based on its heading?
Thanks.

[Jay Petrulis]

Hi,

Try the following. I don't know where you want to copy to, so this just leaves the "marching ants" around the column that has been copied.

-------------
Sub test()
Dim x As Integer

With ActiveSheet
.UsedRange
For x = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
If Left(Cells(1, x), 2) = "36" Then Columns(x).Copy
Next x
End With

End Sub
------------------

Bye,
Jay

[Amds]

Or more simply :-

Sub test()
ActiveSheet.Rows(1).Find("36").EntireColumn.Copy
End Sub