Dim icol as Long, col as Range
Icol = 1
For Each col In Range("A1:IV1")
Select Case lcase(col.text)
Case "text-in-first-cell"
col.EntireColumn.Copy Worksheets( _
"Destination").Columns(icol)
End Select
Next

--
Regards,
Tom Ogilvy


"zedascouves" wrote:

I'm trying to select a whole column (and eventually only the filled
cells) by the text on its first row. The code I have by now is this:
--
For Each col In Worksheets
Select Case Columns.Name
Case "text-in-first-cell"
Columns.Select
Selection.Copy
MsgBox "The selection object type is " &
TypeName(Selection)
End Select
Next
--

It returns the error "Application-defined or object-defined error".

It's the first time I'm trying to code anything in VB, so any help
would be very appreciated.

Thank you.
Duarte