Select all images within workbook at same time to copy

[Blake 7]

hi guys.

I have a workbook with 51 sheets. Each sheet contain an image. I would like to be able to select all images at once as i need to copy them to a single sheet in another workbook.

Could someone please take a look? many thanks

Sub SelectAllPics()
ActiveWorkbook.Pictures.Select
End Sub

This didnt work!