Importing data from one excel workbook to another

[londa_vba]

Hello
Below is the code I am using. The bolded line is where my error occurs.
Note the name and location of the "copy from" workbook and the "paste to" workbook will always be variable.
Thank you for any and all help.

Sub Get_Data_From_File()

    Dim FileToOpen As Variant

    Dim Openbook As Workbook

    Application.ScreenUpdating = False

    FileToOpen = Application.GetOpenFilename(Title:="Import Take-Off", FileFilter:="Excel Files(*.xls*),*xls*")

    If FileToOpen <> False Then

        Set Openbook = Application.Workbooks.Open(FileToOpen)

        Openbook.Sheets("PLIMS Import").Range("A3:F31").Copy

[B]        ThisWorkbook.Worksheets("Sheet 3").Range("A2").PasteSpecial xlPasteValues[/B]

        Openbook.Close False

         

    End If

    Application.ScreenUpdating = True

      

End Sub

 

[John_w]

Does a sheet named "Sheet 3" exist in the macro workbook?

 

[londa_vba]

Does a sheet named "Sheet 3" exist in the macro workbook?

yes but there is no space between Sheet and the number 3. Let me remove the space and try the code again.