Copy sheet from another workbook - runtime error 1004

Hi,
I am trying to copy a whole sheet from a workbook into another. My current code is presented below. When I run this I get 'Runtime error '1004'. The copy method in the Worksheet class failed.' Any ideas or suggestions?
Cheers

        Dim basebook As Workbook
    Dim oubook As Workbook
    
    Set basebook = ThisWorkbook
    Set oubook = Workbooks.Open(Application.GetOpenFilename("Excel file,*.xls", , "Open Occasional Use log file..."))
    
    oubook.Worksheets(1).Copy after:= _
    basebook.Sheets(basebook.Sheets.Count)
    ActiveSheet.Name = oubook.Name
    oubook.Close

I'd prefer:

Sub tst6()
  With Workbooks.Open(Application.GetOpenFilename("Excel file,*.xls", , "Open Occasional Use log file..."))
     .sheets(1).Copy ,Thisworkbook.Sheets(Thisworkbook.Sheets.Count)
     .sheets(sheets.count).Name = "Q_" & Thisworkbook.Name
     .Close True
  End With
End Sub

You'd better not give the same name to a sheet and a workbook.