Cómo copiar un archivo y pegarlo en otra hoja - vba, excel-vba, excel

Necesito copiar un archivo desde una unidad externa y pegarlo en mi Excel, puedo buscar un archivo pero no puedo pegar esos valores en una nueva hoja ... en un mismo Excel aqui mi codigo:

Dim fileStr As String
Sub GetOpenFile()

fileStr = Application.GetOpenFilename()
Worksheets("Sheet2").TextBox1.Value = fileStr

End Sub
Sub Button3_Click()

Workbooks.Open fileStr
ActiveSheet.Paste

End Sub

Respuestas

Para empezar, está intentando pegar en la hoja activa sin haber copiado nada. Además, es probable que la hoja activa no sea la hoja a la que desea pegar.

Pruebe esto en su lugar:

Sub Button3_Click()

Dim wbToCopy As Workbook

Set wbToCopy = Workbooks.Open(fileStr)
wbToCopy.Worksheets("Sheet1").Range("A1:H100").Copy

ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial

wbToCopy.Close

End Sub

ThisWorkbook siempre se refiere al libro de trabajo en el que se ejecuta su macro