Macro to remove pictures from cut and paste
"boe" wrote: Sub ButtonRemove() Dim myshape As Shape For Each myshape In ActiveSheet.Shapes if myshape.topleftcell.column<1 then myshape.Delete endif Next myshape End Sub 2 lines added :) keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool |
Macro to remove pictures from cut and paste
Thank you so much - this worked like a charm!
"keepITcool" wrote in message ... "boe" wrote: Sub ButtonRemove() Dim myshape As Shape For Each myshape In ActiveSheet.Shapes if myshape.topleftcell.column<1 then myshape.Delete endif Next myshape End Sub 2 lines added :) keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool |
All times are GMT +1. The time now is 11:16 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com