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