select columns by text in first cell

[zedascouves]

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

 

[Guest]

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

 

[zedascouves]

Thank you! :-D

Tom Ogilvy escreveu:

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