Sub DeleteAllPictures() 'Deletes all pictures in a workbook (say from a converted document) in the active document ActiveSheet.Pictures.Delete End Sub
Sub DeleteAllPictures() 'Deletes all pictures in a workbook (say from a converted document) in the active document ActiveSheet.Pictures.Delete End Sub