Copie una image entre las hojas de cálculo de Excel 2010 sin causar errores de guardado

Tengo una macro para copyr datos y una image de un libro de trabajo (A) a otro libro de trabajo (B). El Libro B está en Excel 2010. El código funciona bien si el libro A es una versión anterior de Excel, como 97-2003. Pero si el libro de trabajo A también está en formatting Excel 2010, el código parece funcionar, pero al intentar savelo recibo un error ("Se detectaron errores al save 'C: …'. Microsoft Excel puede save el file file eliminando o reparando algunas funciones … ").

La parte key del código (después de abrir el libro A) es:

For Each s In workbookA.Sheets If s.Pictures.Count > 0 Then For Each pic In s.Shapes If Left(pic.Name, 3) = "Pic" Then pic.Copy workbookB.Activate Worksheets("Sheet1").Range("A1").Select ActiveSheet.Paste GoTo gotPicture: End If Next pic End If Next s gotPicture: workbookA.Close 

El error se resuelve borrando la image. O guardando y cerrando el Cuaderno de Trabajo B antes de cerrar el Libro de Trabajo A. Ninguna de estas es una gran solución. De mi investigación, parece que esto es un error dentro de Excel 2010 en el que no se pueden copyr imágenes entre hojas de cálculo en general en lugar de un problema de VBA. Puede haber un parche, pero las políticas corporativas y la cantidad de usuarios que necesitarán ejecutar la macro me hacen una mala opción.

¿Hay una buena manera de evitar esto? ¿Alguna manera de copyr una image entre las hojas de cálculo de Excel 2010 que no causa este problema? Gracias.