Range("A1:F25").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Worbooks("OtherBook.xls").Activate
Worksheets("Sheet2").Active
Range("B9").Select
ActiveSheet.Paste

--
Regards,
Tom Ogilvy

"Stu" wrote in message
...
How can I automate the 'Camera' function in Excel VBA? I
tried using the record macro option but this doesn't work.
I just want to copy a snapshot of a pivot table from one
sheet into another using the 'camera' option.
Thanks