I want to select multiple columns by the column header in an Excel sheet, then copy these columns into a new workbook.

With the code below, Excel opens one book per column instead of pasting all of the selected columns into sheet1 of the new workbook.

I recorded a macro for this task, but the column header changes every time so I cannot depend on recorded macros.

```vb
Sub Colheadr()
    Dim wsO As Worksheet
    'Dim wsF As Worksheet....I comment out this line
    Dim i As Integer

    Application.ScreenUpdating = False
    Set wsO = ActiveSheet
    'Set wsF = Worksheets("Final").....I comment out this line
    myColumns = Array("Facility", "Last Name", "First Name", "MRN", "adm date")
    With wsO.Range("A1:W1")
        For i = 0 To UBound(myColumns)
            On Error Resume Next
           .Find(myColumns(i)).EntireColumn.Copy
            Workbook.Add
            ActiveSheet.Paste
            'Destination:=wsF.Cells(1, i + 1)...I comment out this line
            Err.Clear
        Next i
    End With
    Set wsO = Nothing
    Set wsF = Nothing
    Application.ScreenUpdating = True

End Sub

```