title: MS EXCEL VBA - I need to import a worksheet from one excel file to another
body: <p>I need to import a worksheet from one excel workbook (worksheet name is not always the same) and import it into the current active workbook.</p>
  
  <p>Here is what I have so far:</p>
  
  <pre><code>Sub openFile_Click()
      FileToOpen = Application.GetOpenFilename _
      (Title:="Please choose a Report to Parse", _
      FileFilter:="Report Files *.rpt (*.rpt),")
  
      If FileToOpen = False Then
          MsgBox "No File Specified.", vbExclamation, "ERROR"
          Exit Sub
      Else
          Workbooks.Open Filename:=FileToOpen
  
          Dim wb1 As Workbook
          Dim wb2 As Workbook
          Set wb1 = ActiveWorkbook
          wb2 = Workbooks(FileToOpen)     'This is where I am stuck..I can't give it a static name
  
          For Each Sheet In wb1.Sheets
              If Sheets.Visible = True Then
                  Sheets.Copy After:=wb2.Sheets(wb2.Sheets.Count)
              End If
  
          Next Sheet
  
      End If
  </code></pre>