Select the name of the column in combobox

Question

Hi !!
i have already get the name of the columns in a combobox with this code 
xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
xlWorkSheet.Activate()
xlApp.Visible = True
With xlWorkSheet
Dim LastCol As Integer = xlWorkSheet.Cells(1, xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft).Column
For x As Integer = 1 To LastCol
ComboBox2.Items.Add(xlWorkSheet.Cells(1, x).value)
Next
End With
and what i want is :
when i select the name of the column :
-this column will be copie in a new sheet of the same workbook (a new sheet add and the column of the table will be there )
help me pleasee

Answer 1

i use tis code 
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Excols As New Dictionary(Of Integer, String)
        xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
        xlWorkSheet.Activate()
        xlApp.Visible = True
        With xlWorkSheet
            Dim LastCol As Integer = xlWorkSheet.Cells(1, xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft).Column
            For x As Integer = 2 To LastCol
                Excols.Add(x, xlWorkSheet.Cells(1, x).value.ToString)
            Next
            ComboBox2.DataSource = New BindingSource(Excols, Nothing)
            ComboBox2.ValueMember = "Key"
            ComboBox2.DisplayMember = "Value"
            AddHandler ComboBox2.SelectedIndexChanged, AddressOf ComboBox2_SelectedIndexChanged
        End With
    End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim exWS2 As Microsoft.Office.Interop.Excel.Worksheet
        xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
        xlWorkSheet.Activate()
        xlApp.Visible = True
        With xlWorkSheet
            Dim key As String = DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Key
            Dim value As String = DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Value
            Dim lastrow As Integer = xlWorkSheet.Cells.Rows.End(XlDirection.xlDown).Row
            Dim colletter As String = ColumnIndexToColumnLetter(key)
            exWS2 = DirectCast(xlWorkBook.Sheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
            exWS2.Name = value
           xlWorkSheet.Range(colletter & "1:" & colletter & lastrow.ToString).Copy(exWS2.Range("A1"))
            ' xlWorkSheet = DirectCast(xlWorkBook.ActiveSheet, Microsoft.Office.Interop.Excel.Worksheet)
            'exWS2 = DirectCast(xlWorkBook.Sheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
            'exWS2.Cells(1, 1).value = ComboBox2.SelectedItem.ToString
            'exWS2.Name = ComboBox2.SelectedItem.ToString
        End With
        Me.Hide()
        form2.show()
    End Sub
    Private Function ColumnIndexToColumnLetter(ByVal colIndex As Integer) As String
        Dim div As Integer = colIndex
        Dim colLetter As String = String.Empty
        Dim modnum As Integer = 0
        While div > 0
            modnum = (div - 1) Mod 26
            colLetter = Chr(65 + modnum) & colLetter
            div = CInt((div - modnum) \ 26)
        End While
        Return colLetter
    End Functionbut 
when i click on the button a new sheet add named the first colum and an other sheet add also empty 
without  choosing an items of the combobox :(
and  i get an error in this :   exWS2.Name = value
which is :
Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur
référencé par Visual Basic.