title: Set Workbook Variable from Userform Combobox
body: <p>I am creating a macro for my co-workers.  They get a file daily and at the end of the day have to copy certain information to another workbook.  The macro is to take care of the copying.  I want to have a userform with a combobox popup that contains a list of current open workbooks so it knows which file to copy from.  How do I set it up so that the selection made there sets a workbook variable with that selection? </p>
  
  <p>What I'm trying to do is:  </p>
  
  <pre><code>Sub CopySub()
  
  Dim wb As Workbook
  
  UserForm1.Show
  
  Set wb = Workbooks(ComboBox1.Value)
  ....Rest of Copy and Paste Code
  </code></pre>
  
  <p>Below is the code for the userform:</p>
  
  <pre><code>Private Sub OK_Click()
  'Take user selection and continue copy and paste code
  UserForm1.Hide
  End Sub
  
  Private Sub Cancel_Click()
  'Cancel everything, end all code
  End
  End Sub
  
  
  Private Sub UserForm_Activate()
  
    'Populate list box with names of open workbooks.
  
    Dim wb As Workbook
  
    For Each wb In Workbooks
  
      ComboBox1.AddItem wb.Name
  
    Next wb
  
  End Sub
  </code></pre>