And on a readable form :-)

Sub SelectColumns()
'Leo Heuser, 20 Oct. 2006
Dim ColArray As Variant
Dim Counter As Long
Dim SelectColumns As Range

ColArray = Array(3, 5, 8, 9, 10, 12)

With Sheets("Sheet1")
Set SelectColumns = .Columns(ColArray(LBound(ColArray)))

For Counter = LBound(ColArray) + 1 To UBound(ColArray)
Set SelectColumns = _
Union(SelectColumns, .Columns(ColArray(Counter)))
Next Counter

End With

SelectColumns.Select
End Sub

Leo heuser