Logo doesn't copy as part of a VBA routine

[kgkev]

I have a company logo at the top of the sheet I am trying to copy.

However it doesn't copy across to my new book?

Application.Workbooks.Open ("\\ih-serv\company\Shipping\Invoices\Excel\" & invnum & ".xls")
            'Workbooks(invnum).Sheets("invoice EDIT").Range("A1:W402").Copy
            Workbooks(invnum).Sheets("invoice EDIT").Cells.Copy
            Workbooks("invoice").Activate
            Sheets("invoice EDIT").Activate
            Range("A1").Activate
            
            ActiveCell.PasteSpecial xlPasteAll
            
            Application.CutCopyMode = False
            
            Workbooks(invnum).Close

any idea why?

 

[BarCodeWiz]

Your logo is a Shape, and isn't part of the cells you are copying. Try something like this:

Workbooks(invnum).Sheets("invoice EDIT").Shapes(1).Copy
ActiveCell.PasteSpecial xlPasteAll

 

[AlphaFrog]

It may be easier to just copy the whole worksheet.

    Dim wbInv As Workbook, wbInvnum As Workbook
    
    'invnum = ???
    
    Application.ScreenUpdating = False
    
    Set wbInv = Workbooks("invoice")
    
    Set wbInvnum = Workbooks.Open("\\ih-serv\company\Shipping\Invoices\Excel\" & invnum & ".xls")
    
    wbInvnum.Sheets("invoice EDIT").Copy After:=wbInv.Sheets(wbInv.Sheets.Count)
    
    wbInvnum.Close SaveChanges:=False
    
    Application.ScreenUpdating = True

 

[kgkev]

It may be easier to just copy the whole worksheet.

    Dim wbInv As Workbook, wbInvnum As Workbook
    
    'invnum = ???
    
    Application.ScreenUpdating = False
    
    Set wbInv = Workbooks("invoice")
    
    Set wbInvnum = Workbooks.Open("\\ih-serv\company\Shipping\Invoices\Excel\" & invnum & ".xls")
    
    wbInvnum.Sheets("invoice EDIT").Copy After:=wbInv.Sheets(wbInv.Sheets.Count)
    
    wbInvnum.Close SaveChanges:=False
    
    Application.ScreenUpdating = True

This works OK on excel 2010. I have added the need to delete the original "invoice EDIT"

however Set wbInv = Workbooks("invoice") failed on excel 2000