Pasted this morning, but not now
 

Hi All....
This morning I ran the macro containing the below code, 130 times and it
functioned perfectly.....now it fails every time with a "cannot paste"
error......I havent changed the macro.......any ideas what might could be
wrong?

Range("A1:P42").Select
Range("p42").Activate
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Workbooks.Add
ActiveWindow.Zoom = 50
ActiveSheet.Pictures.Paste.Select

TIA for any help
Vaya con Dios,
Chuck, CABGx3

Pasted this morning, but not now
 

It must be a "Windows thing"......rebooted and all is well.

Vaya con Dios,
Chuck, CABGx3





"CLR" wrote:

Hi All....
This morning I ran the macro containing the below code, 130 times and it
functioned perfectly.....now it fails every time with a "cannot paste"
error......I havent changed the macro.......any ideas what might could be
wrong?

Range("A1:P42").Select
Range("p42").Activate
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Workbooks.Add
ActiveWindow.Zoom = 50
ActiveSheet.Pictures.Paste.Select

TIA for any help
Vaya con Dios,
Chuck, CABGx3

Pasted this morning, but not now
 

"CLR" wrote:

Hi All....
This morning I ran the macro containing the below code, 130 times and it
functioned perfectly.....now it fails every time with a "cannot paste"
error......I havent changed the macro.......any ideas what might could be
wrong?

Range("A1:P42").Select
Range("p42").Activate
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Workbooks.Add
ActiveWindow.Zoom = 50
ActiveSheet.Pictures.Paste.Select

TIA for any help
Vaya con Dios,
Chuck, CABGx3