title: How to copy an existing worksheet into my active workbook?
body: <p>I have 2 sheets, in one Sheet there are 2 buttons <code>Browsefile</code> and <code>Openfile</code> and one textbox <code>TextBox1</code>. I use the <code>Browsefile</code> button to select a file that I want to open and use the <code>Openfile</code> button to open the workbook.</p>
  
  <p>The trouble is, it opens in a new workbook instead of adding it to my active workbook. How could I solve this?</p>
  
  <pre><code>Public fileStr As String
  Sub GetOpenFile()
  
  fileStr = Application.GetOpenFilename()
  Worksheets("Sheet1").TextBox1.Value = fileStr
  
  End Sub
  Sub Paste_Click()
  Dim wbk1 As Workbook, wbk2 As Workbook
  
  Set wbk1 = ActiveWorkbook
  Set wbk2 = Workbooks.Add(fileStr)
  
  wbk2.Sheets(1).Cells.Copy wbk1.Worksheets("Sheet2").Cells(1, 1)
  
  End Sub
  </code></pre>